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Foreword 


A sheet of paper may carry the jottings of an idiot or a sonnet by 
Shakespeare, but by itself it is nothing. In the same way a 
computer, however powerful it may be, is only what the 
programmer makes it, and therefore the skill. and art of 
programming has risen to great importance. Hence this book, 
which. takes over where the manual provided with the Spectrum 
leaves off. No manual can say it all and ours can only give the basics 
of programming. This book, by means of program examples, 
teaches skills of programming which, without its aid, might take 
years to acquire. It will be of great benefit both to the reader who 
has recently taken up programming and to the more experienced 
programmer who wishes to increase his skills. 


Clive Sinclair 
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Introduction 


Production of the Oxford University Press dictionary took over 70 
years, because the compilers wanted to include every word tn the 
English language, and every meaning of every word. | felt, when 
surveying the ground this book could cover, that writing The ZX 
Spectrum Explored could also take 70 years, if every possibility of 
the computer was catered for. Therefore, | selected what seemed 
to me to be the most important elements of programming on the 
Spectrum, and the areas in which you would be most likely to want 
to apply your computer, and drew up a book outline based on those 
conclusions. 

Many of my computer books include a statement along the lines 
of ‘This is a doing book, not a reading one’, by which | mean the 
book is to be regarded as a tool to direct hands-on computer use, 
rather than one to be read as you might read a novel. The same 
admonition applies to this book. While you may well get some 
benefit from just reading through it, the real value of the book will 
only be realised when you read it with your Spectrum turned on, 
and when you enter each of the routines and programs when you 
come to them in the text. 

Do not feel that there is any pressure on you to read the whole 
book from start to finish in the order in which it is presented. There 
may be things you already know, or at this stage have no desire to 
know. By all means, bypass these chapters the first time you work 
through the book, and then perhaps you can come back to them 
later. 

Whatever you do, don't regard The ZX Spectrum Explored as a 
textbook. Textbooks seem to me to be pervaded by a sour air 
which renders their contents joyless, and that is the last thing | 
would want this book to be. It is a guidebook; a signpost; an 
indicator towards areas of computer use where real adventures lie. 
Please regard it as such. If you do, the book should help you get a 
great deal of pleasure from your Spectrum. 

In The ZX Spectrum Explored, we start by looking at the 
fundamentals of programming, then go on to ways of adding colour 
and sound to your programs, using the relevant commands to get 
the Spectrum to produce effects which are more interesting than 
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you may have thought possible. 

Using the Spectrum for business, and then in education, is 
covered next — with each chapter supplied with a number of fully- 
developed programs — and then we have a major chapter on 
games. This chapter includes programs for several ready-to-run 
games, and should give you a number of ideas to help you create 
your own games. The production of user-defined graphics is also 
discussed in the games chapter. 

An even more spectacular use of the Spectrum's high resolution 
graphics is outlined in the next chapter for the production of three- 
dimensional graphics. 

Finally, we look at the use of machine code on the Spectrum, and 
suggest ways of further developing your programming skills. In the 
appendices you'll find a brief history of computers, an explanation 
of some of the jargon associated with them, and an outline of the 
Spectrum's specifications. 

All in all, | hope we've managed to produce for you a 
comprehensive guide to your ZX Spectrum which will help you 
make the most of your computer in the coming months. 


Good programming, 
Tim Hartnell, 
London, September, 1982 


Programming in BASIC 


BASIC is the world’s most popular programming language — 
because it is the easiest one to learn. Computer languages are 
spoken of in ‘levels’; a high level language is one which is close to 
English, a low level one is closer to the weird patterns of ones and 
zeros a computer understands. 

BASIC is a high level language. Even if you have no experience of 
programming at this point, you'll be pleased to learn you already 
know quite a bit of BASIC. 

Words like PRINT, STOP and AND mean just about the same 
thing in BASIC as they do in English. So does IF and THEN and OR. | 
hope you can see already that programming is simpler than 
perhaps you had thought it would be. 

Essentially, when you write a program, you give the Spectrum a 
series of instructions to follow. The Spectrum, like all computers 
built to date, has quite extraordinary calculating and decision- 
making abilities, but absolutely no imagination. If you tell the 
computer to do something, it will do it. If you leave out part of the 
instructions it will attempt to carry out the rest without realising 
that something has been left out. 

imagine you had a robot servant, and you wanted it to draw a 
bath. GO TO BATH might be the first instruction in its program. IF 
BATH IS EMPTY THEN TURN ON TAP. IF BATH IS FULL THEN 
TURN TAP OFF. The robot would happily trundle to the bathroom, 
dip its electronic hand into the bath and discover it was empty, and 
then turn the tap on. It would stand there forever, waiting for the 
water level to reach a point where it would be detected, so the tap 
could be turned off. But because you forgot to include an 
instruction like CHECK IF PLUG IN PLUGHOLE and IF PLUG NOT 
IN PLUGHOLE THEN PUT PLUG IN PLUGHOLE, the robot would 
not think to do this. 

This is exactly how your Spectrum works, by following explicit 
instructions from you. And believe it or not, with a few 
reservations, your Spectrum could more or less follow the 
instructions or program you gave the robot... because those 
instructions contain a number of words of the BASIC programming 
language. 
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Here is a simple program for the Spectrum which | am sure you 
can understand, even without any training in programming 
languages. 


LET A= 20 
LETB=A+A 
iF B = 40 THEN PRINT “B EQUALS 40” 


This is straightforward English, yet it is also BASIC. The first line 
of the program (LET A = 20) is simple, as is the second one (LET 
B =A+ A). The third line looks remarkably similar to one of the 
earlier robot instructions such as IF BATH IS EMPTY THEN TURN 
ON TAP; IF B = 40 THEN PRINT “B EQUALS 40”. You could 
almost type this program into your Spectrum, and it would work, 
with the Spectrum printing up instantly B EQUALS 40. 

The only thing these three lines need to turn them into a program 
is anumber before each line. The following is a program which the 
Spectrum would act on. 


10 LETA=20 
20 LETB=A+A 
30 IF B= 40 THEN PRINT “B EQUALS 40” 


The line numbers can be any numbers you choose (between 1 
and 9999). The computer automatically sorts them into order. We 
tend to number programs in steps of 10 because it leaves room 
between the lines if we decide to add something else in later. 

So you see, already you've had some experience of the BASIC 
programming words LET, IF... THEN and PRINT. The equals sign 
and the plus sign you will know from ordinary arithmetic. In many 
cases, they behave in BASIC just like they do in ordinary sums. 

Before we actually plug in the Spectrum and do some 
programming, I'd like to introduce you to another word in BASIC 
which, as you'll discover ina moment, you already know. In fact the 
word is really two words — GO and TO. 

In BASIC they always come together as GO TO, and are available 
from a single key on the Spectrum (the G key). You'll recall we had 
our robot start the bath-drawing program by saying GO TO BATH. 
in the world of computer programming, we say GO TO a line 
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number. We could add a final line, 40, to our three line program 
above which reads: 


40 GOTO 30 


This would mean that the computer would execute line 30, and 
-print out B EQUALS 4@ then would move on, in sequence, to line 
40, where it would find the instruction GO TO 3@. Without 
questioning why you have told it to do this, the computer would 
follow instructions, and GO TO line 30, where it would find the 
instruction to print out B EQUALS 40 which it would do. It would 
then proceed to line 40 where once again it would strike the 
instruction GO TO 30. ... and of course it would do so, until the 
end of time, or until the screen was full of the words BEQUALS 490. 

We can proceed no further without having the Spectrum turned 
on, so get out your computer and — following the instructions given 
in the manual — plug it into the power supply and the television set. 

The keyboard on the Spectrum looks forbidding when you first 
tackle it, all those funny words like MERGE and VERIFY, and the 
mathematical terms including SIN and COS which you had hoped 
you'd left behind for ever at school. Don’t worry. Once you know 
your way around the keyboard, you'll find it remarkably simple to 
control, and in the words of the advertisement for the Spectrum's 
predecessor ‘within days you'll be talking to it like an old friend’. 


The Keyboard 

Two of the most important parts of the keyboard are the shift keys. 
They are on the bottom row, the CAPS SHIFT (in white) in the 
bottom left hand corner, and SYMBOL SHIFT (in red) second from 
the right in the bottom right hand corner. These keys determine 
what you are going to get when you press the other keys, with their 
bewildering array of words and symbols. 

I'll assume from now on that your computer is turned on. Press 
any of the white alphabet keys, and you'll see the word written on 
the key (such as LOAD, LIST or PRINT) appear. This is a ‘keyword’. 
One of the ways the Spectrum makes the best use of its memory, 
and a feature which makes it very easy to program, is the keyword 
system. Simply pressing a key produces the whole word from that 
key. On most other computers you have to type in a word like LIST, 
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DIM or FOR in full. Hold down the CAPS SHIFT key, and press the 
DELETE key (top right hand corner) until everything you've typed in 
so far has been erased. 

Now, press the P key, and the word PRINT will appear. Then, 
press any of the number keys, so you have something like PRINT 
62735 at the bottom of the screen. Now press the key marked 
ENTER (right hand side, one up from the bottom). The screen will 
clear and the number you've requested will appear at the top of the 
screen. The computer has obeyed your instruction to PRINT a 
number. The Spectrum generally waits until you have pressed 
ENTER before actually doing anything. 

We'll enter a simple program, to show the keyword system in 
use. Type in the following, after holding down the CAPS SHIFT and 
pressing the 2 key (CAPS LOCK) to get capital letters in the 
program. 


1@ INPUT (just press the | key) A (now press ENTER to 
show you've finished the program line) 

20 PRINT A (press ENTER) 

30 GOTO 10 (press ENTER) 


Note that the word PRINT comes from the P key, and GO TO 
from the G key. The spaces in the program listing are added 
automatically. Once you have this in your computer, we can make 
it work, by pressing the R key, which will make the word RUN 
appear, and then pressing ENTER. A flashing cursor will appear at 
the bottom of the screen, showing the computer is waiting for a 
number. Enter any number, then press ENTER. You'll see your 
number appear at the top of the screen. You know from the 
discussion of GO TO BATH we had earlier, that the final line of the 
program (line 30) sends action back to line 10, so the computer will 
continue to execute this program loop for ever, or until we stop it. 
You can stop this program by entering any letter except A when the 
Spectrum is waiting for a number. The computer will stop, printing 
an error message at the bottom of the screen. 

Once you've stopped the program, touch the A key, press 
ENTER, and the screen will go black, and then clear, with the 
copyright notice at the bottom of the screen. The keyword 
available from the A key is NEW, which wipes everything in the 
computer’s memory, so you must use it with care. 
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So, you've learned that the white keywords are obtained by 
pressing the key required after you have entered a line number. 
Let's look at the words in red on the keys. Hold down the SYMBOL 
SHIFT key, and then press the Y key. You'll see the word AND 
appear. Still holding down the SYMBOL SHIFT, press the G, and 
THEN will appear. So red words on the keys, and the symbols like 
+ ‘and £, are obtained by holding down the SYMBOL SHIFT, then 
pressing the required key. 

You get the green words above the keys by pressing down both 
shift keys together, then letting them go, and touching the key 
required. Try it now. Press down the CAPS SHIFT and the 
SYMBOL SHIFT keys together, let them go, then touch the A key. 
The word READ should appear. 

It is a little more difficult to get the words in red under the keys. 
Press down both shift keys together, then release the CAPS 
SHIFT, but do not let go of the SYMBOL SHIFT. Then press the X 
key. The word INK should appear. You may have to practice this a 
little to ensure you get the word INK (or BEEP, PAPER, FLASH or 
BRIGHT) every time. 

Read through this whole section again, doing each of the 
exercises, until you're sure you understand it. Don't worry if it 
seems to take a long time at present. You'll be pleasantly surprised 
at how quickly you will learn the keyboard system. At the end of 
this introductory chapter we have a program designed to teach you. 
where the alphabetical keys on the Spectrum are, to encourage 
‘touch typing’, but first | want to introduce you to the first real 
program in this book. It may take you a while to type in, but please 
persevere. Once you've entered the whole of this program into 
your computer, press RUN and play the game aginst the Spectrum. 

The program plays ROCK, SCISSORS and PAPER, a computer 
version of the human game in which two players hide their hands 
behind their backs, and bring out a hand making a symbol for rock (a 
closed fist) scissors (two fingers pointing) or paper (open hand). 
Rock beats scissors (because a rock can blunt scissors) scissors 
beat paper (because scissors can cut paper) and paper beats rock 
(because paper can wrap a rock). You enter your choice of ROCK, 
SCISSORS or PAPER in this program by entering the numbers 1, 2 
or 3. The choice they represent is shown at the top of the screen. 

Before you enter the program, the following comments may 
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help. You get the little copyright symbol in line 20 by pressing down 
both shift keys, then holding down the SYMBOL SHIFT and 
pressing the P key. The equals sign (first used in line 3@) is from the 
L key. You get it by holding down SYMBOL SHIFT, then pressing L. 
Remember to press ENTER after each program line is written, to 
get it to move from the bottom of the screen into the program 
proper at the top. If the line refuses to move up, a flashing question 
mark will appear somewhere in the line. This is the computer's sign 
to you that you have made a mistake in the line. Look carefully at 
the point where the question mark is flashing to discover your 
mistake. 

The colon (:) after the word CLS (which stands for Clear the 
Screen) in line 60 is found on the Z key. Hold down SYMBOL SHIFT 
and press Z to get it. Line 70 has a single apostrophe (') after the 
word PRINT, before the opening quote marks (“). You'll find the 
single apostrophe on the 7 key, and it is obtained by holding down 
the SYMBOL SHIFT, and pressing the 7. The double quotes come 
from the P key. 

You need to exercise a little care to get line 17@ into your 
computer correctly. After 170 LET C=, you need the word INT 
which is not typed in letter by letter, but is obtained from the R key. 
Press both shift keys, release them, then press R and INT will 
appear. The open bracket is on the 8 key (hold down SYMBOL 
SHIFT while pressing the 8 key) and the word RND is available from 
the T key. Press both shift keys at once, release them, then press 
T. The asterisk (*), which stands for multiply in BASIC, comes from 
the B key, and is obtained by holding down SYMBOL SHIFT as you 
press B. 

Do not try to spell out words like AND, OR, THEN and TO, but 
find them on the keys. These words are obtained by holding down 
SYMBOL SHIFT, then pressing the relevant key. 

Now, enter the program, then return to the book. 
i@ REHM ROCK, SCISSORS, PAPER 
2 REM © HARTNELL, 1282 
3@ LET COMP =a 
4@ LET HuUN=2 


5@ FOR A=1 TO 38 
G@ CLS : PRINT “ROUND NUMBER * 


7@ PRINT ““4 -_ROCK" 
6@ PRINT “ea - SCTSa0Ro”" 
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Q@ PRINT “2 - PAPER” 
128 wee “ENTER i. 2 aR 


iT & 
32@ PRINT “"“YOuU PICKED 


EG ad 


23@ IF 8=1 THEN PRINT “POCK 
44@ IF &=2 THEN PRINT “SCTSSORS 


45@ IF §8=2 THEN PRINT “PRPER" 


4168 PAUSE 58 
27@ LET C=INT iRNDs3: +i 
128A PRINT ‘3 PICKED ; 


29@ IF C=1 THEN PRINT Smack" 


288 IF C=2 THEN PRINT “SOISsoORsS 


21@ IF C=3 foe PRINT “PAPER” 


u : LET M+2 
26@ PRINT ““SCORE™’ *"'HE> °°; COMP 


7TAB 18; "yoau>""; HUM 
a is jae 


xT 
2998 IF HUM=COMP THEN PRINT 
HAT GANE AS A DAA” 


O@@a IF HUM {COMP THEN PRINT 
WON THAT GAME! 

Sat IF COMP <HLUM THEN PRINT 

OU WON THAT GAME: * 


This is part of a game in progress: 
ROUND NUMBER 7 
2ze- SCTSSORS 
3 - FAPER 
ENTER 1. 2 OR 3 
YOU PICKED PAPER 
I PICKED Scrasars 
x WIN! 

SCORE 
ME> 2 YT> 2 


ot ey 


» 


> aa 
2 aye 
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10 


20 


30 


40 


50 


60 


I'll go through the program line by line, to try and explain 
what is happening in each line. 

This line starts with REM, which stands for REMark. REM 
statements are included in programs only for the benefit 
of humans reading the program listing. The computer 
ignores everything that appears in a line after the word 
REM. 


This is another REM statement, also ignored by the 
computer. : 


LET means much the same in BASIC as it does in English. 
The word COMP (short for computer) is called a variable, 
which is any combination of letters and numbers (starting 
with a letter) which is assigned (or made equal to) a 
numerical value. COMP holds the computer's score, and it 
is set equal to zero at the start of the game. 


This line does the same for a variable called HUM, for the 
human's score. 


FOR... This is the start of what is called a ‘FOR/NEXT 
loop’. The computer generally goes through such a loop 
the number of times indicated by the last number in the 
FOR statement. Look down to line 28@ (NEXT A). This is 
the end of the FOR/NEXT loop. In this program, the 
computer runs the gauntlet from line 5@ to line 280 ten 
times, Carrying out all the instructions within the program 
as it does so. 


CLS, as mentioned before, Clears the Screen. The colon (:) 
allows you to add a second statement to the line. PRINT 
does just that, printing the words in quote marks following 
the command PRINT. As well as that, the computer prints 
the value of A. The first time through the FOR/NEXT loopA 
is equal to one, the second time to two, and so on until A 
equals ten the last time through the loop. So PRINT 
“ROUND NUMBER ”:A produces ROUND NUMBER 4, 
or whatever number A is equal to, on the screen. 


70-90 


100 


110 


120 


130 
150 


160 


170 
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These three lines print the numbers 1 to 3, and the word 
(such as ROCK) they represent. Note the apostrophe 
(from the 7 key) before the opening quotes in line 70. This 
moves the print position down a line, so that there is a 
blank line on the screen between the words ROUND 
NUMBER 4 and 1 — ROCK. 


The apostrophe is used again to put a blank line before 
ENTER 1, 2 OR 3 is printed. 


The INPUT command waits until a number is entered by 
the user. In this case, the number you enter is assigned to 
the variable B. 


This prints YOU PICKED. 


These three lines interpret the number you've entered 
(1, 2 or 3—assigned to B) and decide which word (ROCK, 
SCISSORS or PAPER) this stands for, and prints it up on 
the screen. 


PAUSE. This puts a short delay into the program, to make 
it look as if the computer is ‘thinking’. The number after 
the word PAUSE is in fiftieths of a second, (sixtieths in the 
US), so PAUSE 590 is a delay of one second. PAUSE @ will 
wait forever, or until any key is pressed. 


This is a very interesting line, in which the computer 
generates a random number. Random numbers are very 
useful in games programs. The RND function (both shift 
keys, then press T) generates a random number between 
zero and one. You can show this by typing in PRINT RND, 
then pressing ENTER. You'll get a number between one 
and zero. Line 17@ turns it into a whole number in the 
range one to three. If the 3 which follows the asterisk 
within the brackets was changed to, say, a 10, then C 
would be set equal to a number chosen at random by the 
computer between one and ten. However, in this case we 
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180 


190 
-210 


220 


230 


240 


250 


260 


want the computer to choose 1, 2 or 3, so we multiply 
RND by three. 


This begins the statement to tell you what the computer 
has chosen. 


These lines change the 1, 2 or 3 which C has been set 
equal to into ROCK, SCISSORS or PAPER. 


The variable D is set equal to 260. This is so, at the end of 
lines 230 and 240 (GO TO D), the computer will GO TO line 
260. The Spectrum is quite happy to GO TO results of 
calculations, so you could (although it would serve no 
purpose) end lines 230 and 240 with GO TO 2*130 (two 
times 130) 


lf B and C are the same number, the computer knows that 
it and you have chosen the same thing, so prints IT’S A 
DRAW, then GOes TO D (i.e. GOes TO 260) 


This complicated looking line determines if the com- 
binations of C and B result in a win for the computer. 
IF they do THEN the computer PRINTs | WIN and adds one 
to its score (LET COMP = COMP + 1). Although this 
statement looks a little odd when compared with normal 
arithmetic, it really means ‘make the variable named on 
the left hand side of the equals sign equal in value to the 
old value of the variable, plus one’. Don't worry if you don’t 
understand this right now because the reason for it will 
gradually become clear as you use lines like this more 
often. 


This checks the human win condition, and if it finds it, adds 
one to the human score (LET HUM = HUM + 1) 


This prints out the score. Notice that there is a single 


apostrophe before the opening quote marks, and two 
single apostrophes after the quotes which follow SCORE 
and before the quotes which precede ME. As you've no 
doubt seen from running the program, this puts two blank 
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lines in before the line starting ME is printed. The pointing 
arrow head, the ‘greater than’ symbol, which follows the 
words ME and YOU is obtained from the T key, when you 
press it while holding down the SYMBOL SHIFT key. 


270 This PAUSEs for two seconds so you can read the result of 
the round. 


280 NEXT A is the end of the FOR/NEXT loop which started in 
line 50. As explained earlier, this sends action all the way 
back to line 50, where the value of A is increased by one, 
and then the following lines are executed in order. 


290 If the value assigned to the variable HUM is the same as 
the value assigned to the variable COMP, then the 
Spectrum knows that the game is a draw, and prints up 
the message (after skipping two lines, using two single 
apostrophes) “THAT GAME WAS A DRAW”. 


300 IF HUM is less than COMP, then the computer knows that 
you have won. 


310 IF COMP is less than HUM, then the computer knows that 
you have won, 


| hope this explanation does not seem too bewildering. | am 
trying to get across the fundamentals of programming the 
Spectrum in BASIC in the simplest possible way, and a lot of 
ground must be covered in a short time. 


Adding a little colour 

We'll be looking at ways of making the most of the Spectrum's 
colour capabilities (and sound) a little later in this book, but for now 
\'d like to introduce you to a few of the simplest uses of the colour 
commands, so yo.' can see how well these can be used to enhance 
programs. A new version of the ROCK, SCISSORS, PAPER 
program, with colour commands added, follows. You can easily 


modify the program you now have by using the Spectrum’s edit 
facilities. 
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3@ REN ROCK, SCISSORS, PRPER 

20 REM @ HARTNELL, 1982 

3@ LET COM cS =@ 

4@ LET HU 

S@ FOR A= 1a@ 

62 CLS: BRINT INK 2, "ROUND NU 
MBER “; INK _3;A 

7@ PRINT INK a; 7"%43 ~_ROCK" 


6@ PRINT INK 2; "2 - SCTSS5o0R5" 
3@ PRINT INK 3, "3 - PAPER" 
Lea gr eee &; PAPER 2; ° "ENTE 


INPUT B 
12@ PRINT INK _B; "YOU PICKED "; 
29@ IF 8=32 THEN’ PRINT “ROCK” 
248 IF B=@ THEN PRINT “SCISSORS 


16@ IF B=9 THEN PRINT “PAPER” 
178 LET G=INT (RNDs3) 44 


38@ PRINT INK C;°"'I PICKED "; 
19@ IF C=1 THEN PRINT "ROCK" | 


L 
2808 IF C=2 THEN PRINT “SCTSSORsS 
24@ IF C=2 THEN PRINT “PAPER” 
220 LET D= 
230@ IF B=C THEN PRINT FLASH 4; ° 
“IT'S fF AWE: G&G oO G 
24@ IF C=1 AND B=2 OR C=2 AND B 
=3 OR C=3 AND B=1 THEN PRINT FLA 
SH i; BRIGHT 1; °"3 WIN! ": LEF ca 
MP=COMP+1: GO TO 
250 IF B=3 AND C=2 OF EB=2 AND 
22 OR B=3 AND C=1 THEN PRINT FLA 
SH 1; °"YOU WIN! ': LET HUM=HUN+1 
RP NY Sorte one “ MED 2 
“> ARIM 
a7e PRUSE iae 
2e@Q NEXT 
#2E5 INVERSE 1 
230 IF HUM=COMP THEN PRINT °° 


HAT GANE WAS A DRAW!” 

wee IF HUN <COMP THEN PRINT *’"E 
WON THAT GANE} 

32308 TF CONMP<sHUM THEN PRINT “7 "Y 
GU WON THAT GAME!” 


You'll see in line 6@ the words INK 2 have been added. To get 
these into the line, press LIST (the K key) then 60, so you have LIST 
60, then press ENTER. The word ‘scroll?’ will appear at the bottom 
of the screen. Press N to stop the listing scrolling further, then hold 
down the CAPS SHIFT key, and press the 1 key, which has the 
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word EDIT above it. The line the cursor (a greater than sign) is 
pointing to (in this case, line 60) will appear at the bottom of the 
screen. We want to insert the words INK 2 after the word PRINT, 
so holding down the CAPS SHIFT, press the 8 key. You'll see the 
cursor move across in the direction of the arrow on the 8 key. Once 
the cursor has gone past PRINT, but before it goes any further, take 
your finger off the 8 key. Now, press down both shift keys at once, 
and then release the CAPS SHIFT key. Still holding the SYMBOL 
SHIFT key down, press the X key, and — if all is well — the word INK 
should appear. Follow this with a 2, then a semicolon (SYMBOL 
SHIFT, then the O key), and then press ENTER again. You'll see the 
amended line take the place of the original line 60. 

RUN the program again, and you'll see the words ROUND 
NUMBER 1 appear in red. The colours are chosen by the numbers 
zero to seven (as will be explained in more detail later). INK 1 will 
cause the letters following it to be blue, 2 will turn them red, and so 
on. (You don't need to run a whole game through before 
continuing. Just enter a OQ when asked for your number, and the 
program will stop with a puzzled error message, because it doesn’t 
know what OQ means.) 

Press EDIT (CAPS SHIFT and 1) again, and line 6@ will reappear at 
the bottom of the screen. Using the CAPS SHIFT/8 combination, 
move the cursor across to go past the quotes after NUMBER and 
add INK 1, then another semicolon (which must join these extra 
commands in a PRINT statement together) before the A. Return 
the line to position within the program with ENTER and RUN the 
program again. You should see the words ROUND NUMBER 
appear in red, and the number 1 come up in blue. 

If the colours are unclear, fiddle with the channel tuning, and the 
colour control on your television, until you can see the red and blue 
properly. Different makes of television reproduce the colours 
differently, so you may find one colour is more intense than the 
others. 

You can now go through the whole program, making the 
necessary changes, to add colour throughout. The lines which 
need to be modified are 60, 70, 80, 90, 100, 120, 180, 230, 240, 
250 and 285 (which must be added... it will sort itself 
automatically into order). RUN the program again, and see how 
well the colour commands enhance the program and give it life. 
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Touch-typing Tutor 

Our final program in this introductory chapter to the book is 
designed to help you find your way around the keyboard. When you 
RUN the program, it will put a number or a letter of the alphabet, 
chosen at random, on the screen in the approximate position it is 
on the keyboard. You have a limited time in which to press the 
designated key. If you get it wrong, the forgiving computer gives 
you another go. You'll be pleased to see how quickly you'll learn the 
layout of the keyboard using this routine. 

\f you find you do not have enough time to find the keys when 
you first run this program, change the 190 in line 180 into a bigger 
number. Start with 300, and gradually decrease it until you feel the 
time is about right for your present level of typing prowess. Be 
careful to get the numbers and letters in the DATA statements 
(lines 8@ to 110) correct, as these control where the various 
numbers and letters will be printed. After you've run through the 
program a few times, come back to this book for a line by line 
breakdown of it. 

19 REM KEYBOARD TUTOR 
28 OCIH AS(36,53 


3Q@ LET SCORE=6 
480 FOR A=1 TO S6 


xT A 
S@ DATA “i86R2" 
2 "40611", “506146" 
, “@06256", "99626", "O89629 - 
9@ DATA “ALPES”, "Bisizr’, “Cisiz 


7 "20605", “S8686 
: 

", "D1i2Bsse", “E@sea”™ : “F1i211i"."Gia@id 
f 
: 


“696437"'," 78629 


. »"HI2Sts “ee t ee Taso23 ae "199320 "** 

ige DATA “K1iBes" . "L21226"."°NIS23 
“| "N1IS20", 'O@926", “P@S29",. “Saaz 
is ;REGIL "."S1205",°"TeSI4a” 

438 PATA “Ueosa”, “U1IS2<6", “veges 

, Xi 506". “Yaoi7T”, "Siso05” 


M 
13@ REN THE TEST 
age ae Asi TO 38: SEEP .G2,-1c 


= IF INKEYSi2°" THEN GO TO 15 

60 LET EB=INT (RND#36) +71 

1708 PRINT FLASH 1; PAPER 6;AT U 
RL (ARB (2S TO 333 ,VUAL (AS TB) (4 
TO 3);RS(5,23 


10 


20 


30 
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48@ FOR C=1 TO 108 

238 LET C3=INKEY & 

2BOea IF C#is"" THEN GO TO 266 
21i@ NEXT C 


B40 GO TO 3ea 

260 IF CS$=AS{(B.1) THEN LET SCOR 
E=SCOGRE+1: BEEP -25 , SCORE ¥4: PRI 
NT AT 316.@; PAPER 6&6, INK 2; “WELL 
DONE. YOUR SCORE IS NOU “; SCORE 
PES IF CPI s:AGiB,is THEN PRINT A 
Fy 8,@;, INK 1; PAPER 6&; FLASH 12; " 

SORRY. BUT THAT WAS WRONG"; TA 

B 18; "TRY AGAIN": GO TO ife 

RF FOR O=1 TO ise 

2S5Q NEMT CG 

2ae@ NEXT A 

3@@ CLS : PRINT AT &,2; FLASH 3 
> BRIGHT 1; PAPER 6; INK 2: “YOUR 
SCORE WAS “;SCORE;”“ OUT OF 18° 
3328 IF SCOQRE>7 THEN PRINT AT 1 
27> FLASH 4; INK 4; PRPER F; BRI 
GHY 4; “ CONGRATULATIONS! " 


This is a REM (remember REM stands for remark) 
statement which the computer ignores. Note you can put 
as many spaces in a REM statement as you like. 


Line 20 sets up an array. An array is used when you want to 
store alist of numbers or words and refer to the item in the 
list by referring just to the position it occupies in the list. 
Line 2@ sets up an array called AS. The dollar sign means 
that the items stored in the list are words, within quote 
marks, rather than numbers. The first e/ement of the array 
is referred to as AS (1), the second as A (2) and so on. 


Sets a variable called SCORE to hold your score of the 
number of letters you find correctly. 


40-70 This is a FOR/NEXT loop, as in the previous program. Line 


50 (READ BS) acts in conjunction with the DATA 
statements (lines 80 to 110). It reads each of these in turn, 
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80 
-110 


120 
-140 


150 


155 


160 


170 


one for each cycle through the loop. The first time through 
the loop it reads the first item in the DATA line ("10602") 
and assigns this to BS. Line 60 then assigns AS (1) to this 
value of BS. The next time through the loop, when A 
equals two, so line 60 reads, in effect, LET AS (2)=B%, and 
this time BS has the value of the second item in the DATA 
statement, “20605”. This continues until all 36 items in 
the AS list have been assigned a DATA statement. 


The DATA statements. Notice that items are enclosed 
within quote marks, and separated by commas. 


Three REM statements 


This sets up another FOR/NEXT loop. FOR/NEXT loops do 
not have to be called A; any letter of the alphabet is 
acceptable, so FOR J=1 TO 10 or FOR M=1 TO 10 would 
do as well. BEEP .02, — 10 makes a short sound (BEEP is 
discussed in detail later in the book), and CLS clears the 
screen. 


INKEY$, which you'll find above the N key, reads the 
keyboard, waiting for a key to be pressed. This line waits 
until your hands are clear of the keyboard before 
continuing. 


This sets B equal to a random number between one and 
thirty-six, to choose one of the numbers zero to nine, ora 
letter of the alphabet. 


This is a fairly complex line, which prints the letter or 
number on the key A& (B,1), at its correct location, which is 
done by PRINTing AT the second and third numbers in the 
DATA statement down (so if the second and third 
numbers are 12, it would print 12 lines from the top), and 
the fourth and fifth numbers across (so if the fourth and 
fifth numbers in the DATA statement were @5, it would 
print five spaces across). In other words, each of the DATA 


180 
-210 


220 


225 


230 


240 


260 


265 


270 
-280 


290 


300 
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statements contains either a letter or number as the first 
element, and the final four elements are its location on the 
screen, items two and three being the position down the 
screen, four and five the position across. 


This FOR/NEXT loop waits a designated time for a 
keypress, the length of the delay being set by the number 
at the end of line 180. If a key has been pressed, line 200 
detects this, and sends action to line 260. 


If you don’t press a key in time, the computer prints up the 
message YOU TOOK TOO LONG 


This is a short delay, using a FOR/NEXT loop. You can use 
PAUSE or an ‘empty’ FOR/NEXT loop for a delay. 


Sends action back to line 15@ for the next test. 


At the end of ten goes, sends the computer to line 300 to 
print out the final score. 


Checks to see if the key pressed is the same as the one 
printed on the screen, and if it is adds one to the SCORE, 
and prints out the message WELL DONE, YOUR SCORE 
IS NOW 3, or whatever your score happens to be. 


If the key pressed was not the same as the one shown on 
the screen, prints SORRY, BUT THAT WAS WRONG, TRY 
AGAIN, then sends action back to line 170 to let you try 
again. Notice that there is a single comma after the close 
quote marks following the words TRY AGAIN. Leave this 
comma out, and see how this changes the display. 


This is a delay before the next letter or number is printed 
on the screen. 


Sends action back to line 150. 


Prints out the score. 
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310 Adds a congratulations message if a score greater than 7 
has been achieved. 


You'll find this is a very useful program to help you gain familiarity 
with the keyboard layout. 

The material in this chapter has been somewhat condensed but | 
hope that careful reading of it, and entering the programs at the 
right time, has given you a fair introduction to programming in 
BASIC on the Spectrum. This information should complement that 
given in the two manuals which came with your computer to help 
you become a proficient programmer fairly rapidly. The rest of the 
book will assume you have mastered the information given in this 
chapter, and that you understand the introductory manual, and 
much of the early material in the second manual which came with 
your computer. 
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Exploring the Spectrum’s 
colour 


The Spectrum has six colours (dark blue, red, magenta, green, 
cyan, and yellow), plus black and white. Each colour is given a 
number between @ and 7. The relationship between colours and 
numbers is: 


Black 

Dark blue 

Red 

Magenta (a sort of pinkish purple) 
Green 

Cyan (a light blue) 

Yellow 

White 


NOOR WN—- G&G 


If you have a black and white television, or turn the colour control 
right down on your colour TV, you'll see these colours, printed in 
this order, form a range of greys from black to white. Try this: 


10 FORX=90TO7 

20 PRINT INK X; “ &@ Ml” (two solid squares obtained by 
pressing the white shift key, followed by key ‘9’ and 
then key ‘8’) 

30 NEXT X 


The colour codes also relate to how the colours are produced by 
the television. A colour TV uses blue, green and red light. All other 
colours can be made up of a mixture of these three. Magenta is 
made by mixing blue and red and its code, 3, is the sum of the other 
two colours’ codes. 

When you first switch on your Spectrum you will see that the 
entire screen is white and you are typing on the screen in black. It is 
easy to add a splash of colour by using the BORDER command to 
be found on the B key. Try this: 


BORDER 1 (followed by ENTER) 
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This turns the border dark blue. You can put any one of the eight 
numbers after the BORDER command, and after pressing ENTER 
the border around the screen will change to that colour. You can 
also choose what are called INK and PAPER colours. The PAPER 
colour is the colour of the rectangular page inside the border, and 
the INK colour is the colour of the text and graphics characters that 
you type in. Getting the PAPER and INK commands is a little harder 
than the BORDER one. To change the PAPER to anew colour, you 
first press the white shift key on the left of the keyboard, then the 
red shift key on the right, and lastly, still holding down the red shift 
key, you press the ‘C’ key. Try some of the following (note that as 
with the BORDER command above, you don’t need line numbers 
for these examples): 


PAPER 3 : CLS (the CLS command is on the ‘V’ Key) 
PAPER 2: CLS 
PAPER 6: CLS 


You see the main rectangle of the screen's page turn first 
magenta, then red and then yellow. As you probably know, you can 
put any of the eight colours’ numbers after the PAPER command. 
But to get the colour all over the page, you must then follow your 
PAPER command by a CLS (clear the screen) command (there is a 
way of avoiding this — but I'll return to that later). 

The INK command is just as easy to use. To get INK you press 
the CAPS SHIFT key again, holding it down you press the 
SYMBOLS SHIFT key on the right, and still holding the red shift key 
down, press the ‘X’ key. The INK command is used in much the 
same way as the PAPER one. 

To see the effect of coloured text try: 


10 PAPER7 

20 INK3 

30 CLS 

40 PRINT “Testing” 


If you run this program you'll see the computer prints the text in 
magenta on a white background. You can put any colour text on top 
of any colour paper, but many of the colours do not mix very well. 
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To see what | mean change the above program to the following, 
and run it. 


10 PAPER5 

20 INK4 

30 CLS 

40 PRINT “Testing” 


It is very difficult to see the words. Red and-magenta don’t mix 
too well either and typing magenta text on top of a green paper is 
particularly difficult to read. 

You can use the colour commands to colour just a part of the 
screen, rather than change the whole page within the border. To 
see this, try the following: 


PAPER 7:CLS:PRINT INK 5; PAPER 1; “Testing” 


As you can see, just the area behind the words was in light blue, 
with the text in dark blue. 

There are four things that you can do to the colour and all the 
BASIC words for these can be found below the bottom row of keys 
on your Spectrum; they are FLASH, BRIGHT, OVER and INVERSE. 
The last two of these are not restricted to the use of colour, but 
they have many uses when dealing with colour. 


BRIGHT 

The BRIGHT command is easy to understand. This is used to make 
the colour of either the text (INK) or the background (PAPER) stand 
out a little more. Using it the colours can be made a little brighter 
and in some cases a hue or so lighter. This routine shows what 
BRIGHT does: 


10 FORx=@to7 
20 PRINT PAPER x:BRIGHT 0;” ";BRIGHT 1;""; 
30 NEXTx 


This prints spaces (think of them as little blocks of PAPER) in 
blocks of two. The first is the normal colour and the second is the 
same colour made brighter. As you can see the BRIGHT command 
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is followed by either a zero or a one. Zero turns BRIGHT off, and 
one turns it on. 

This next program produces the same result, putting the 
BRIGHT control in a loop: 


10 FORx=0TO7 
20 FORy=0TO1 
30 PRINTINKx; BRIGHTy;” ": 


40 NEXTy 
50 NEXT x 
FLASH 


The next word is FLASH and it is used rather like BRIGHT. It too is 
followed either by a zero or aone depending on whether it is ‘on’ or 
‘off’. We could make the BRIGHTer squares in the last example 
flash for instance with this routine: 


10 FORx=0TO7 
20 FORy=0T01 
30 PRINT INK x;BRIGHT y; FLASH y;” ”; 
40 NEXT y: NEXT x 


The routine shows that FLASH flashes between the colour of the 
INK and the colour of the paper. If you have just switched on then 
the INK is set to INK 9. INK 9 is a special statement which tells the 
Spectrum to print in whatever INK would be the best contrast to 
the present PAPER colour. The program you've just run shows that 
for the four darker colours the Spectrum chooses white as the INK 
and the other lighter colours have black. Hence the BRIGHTened 
dark coloured squares flash between colour and white and the 
lighter colours flash between colour and black. 

INK 8 is also a valid statement. It means that the last colour is to 
be retained. You can use these two numbers with PAPER 
commands as well, and they have the same effect. Thus, PAPER 8 
and PAPER 9 are valid statements. You can use the number 8 after 
the FLASH and BRIGHT statements, but not the 9. In all cases the 
number 8 means that what ever attribute that square was set to 
will be retained when a new character is printed on top. 
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INVERSE, OVER 

The two remaining words that you can use when dealing with 
colour are INVERSE and OVER. INVERSE carries out the basic 
action in FLASH, namely to change the INK to PAPER and the 
PAPER to INK. This has the effect of inverting the text, so white 
writing on black becomes black on white, or vice versa. It works for 
all the colours of INK or PAPER and takes a form similar to BRIGHT 
and FLASH. Once again, the word is followed by either a zero 
(meaning ‘off’) or a one (meaning ‘on'). However you can't use 8 
after this word. Try this to see how it works: 


10 FORx=0TO1 

20 PRINT INVERSE x; INK 5; PAPER 1; “This shows how 
inverse works” 

30 PAUSE 50 

40 NEXTx 


OVER is a very useful BASIC word and it refers to a way in which 
you can overlay one character on top of another. Once again it uses 
the zero-for-off and one-for-on control. Like INVERSE, you can’t 
use the number 8 after it. OVER works by calculating what is called 
an exclusive-or operation on a character square. What this means 
is that it lays one character over another, but where there is a black 
dot in both at the same place it will print a white dot instead. The 
way OVER does its job is best understood by considering that each 
character square on the screen (there are 32 across and 24 down) 
is made up of 64 tiny dots in an 8 by 8 matrix (rather like a chess 
board or a square of graph paper). When asked to OVER print 
something the Spectrum looks at the same dot in each of the 
character squares in question and goes by this ‘truth table’ to 
decide whether to end up with that dot as black or white: 


NEW CHARACTER 


BLACKDOT . WHITE DOT 


BLACK DOT 
OLD CHARACTER 
WHITE DOT 
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Let's take an example to make this clear. Print two characters 
onto your TV screen, the capital ‘O’ and the zero ‘0’: 


PRINT “O 0” 


Now imagine what you would get if you OVER PRINTed the 
capital O on top of the zero. Having formed a mental image of what 
you expect (bearing in mind that two blacks give a white) now try 
the actual OVER PRINTing: 


PRINT OVER 1;“0";CHRS$8; "0" 
(Note that CHR$8 is a control character which backspaces) 


You should get a cross-hatch line, or stroke. Do you see why? Try 
OVER PRINTing a few other characters on top of each other and try 
to predict what will happen. 

How else can OVER PRINTing be used? One good use is making 
objects appear to pass in front of or behind others. A simple 
example of this is in the program OVERPRINT. In this a normal 
letter ‘p’ travels across the screen toward an inverse ‘p’. The 
normal ‘p’ passes over the other one momentarily creating a black 
square (remember that black and white give black?) then goes on 
its way leaving the inverse ‘p’ as it was. . 


OVERPRINT 


S PAPER Ss: INK 4: CLs 
48 PRINT INVERSE 1; AT 2164.18; "p 


45 FOR a=8 TO 28 

@2@ PRINT PREER i; ar 3 INVER 
E24: OVER i;AF 26.25 

PRISE 2S 


‘ote: PRINT ZHVERSE 13: QUER i; YT 
23’ x xT 3 


ATTR 

| mentioned that you can only have one INK colour and one PAPER 
colour in each character square. This is because the Spectrum 
stores information about the colour of INK, of PAPER, whether a 
character is FLASHing or not, and whether it is BRIGHT or normal, 
for each character square in an area of memory set aside for 
“attributes” (from location 22528 to 23296). This gives 768 
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memory locations which is 32x24, the number of columns 
multiplied by the number of rows on the TV screen. Each of these 
memory locations contains a number between @ and 255 which 
refers to what colours are there and so on. This number is returned 
when you use the Sinclair BASIC term ATTR (x,y) where x and y are 
the coordinates (as in PRINT AT) of the square in question. The 
number is not easy to understand until you have had some practice 
with it. 
It is made up of four numbers added together. These are: 


128 or @ depending on whether the square is FLASHing 
64 or © depending on whether it is BRIGHT or not 

8 times the PAPER colour’s code 

and lastly the code for the INK colour. 


You use ATTR as follows: 


PRINT AT 10,10;FLASH 1; BRIGHT 1; INK2; 
PAPER 6; “S” ;ATTR (10,10) 


Here you are printing the letter S at the position row 10, column 
10, in red ink ona yellow background with BRIGHT and FLASH both 
on. What do you think the computer will report as the ATTR of 
position 10,10? It should be 128 + 64 + 8*6 + 2 = 242. This is fairly 
easy to work out given that you know the attributes. If you are just 
given the response to ATTR (x,y), and you want to work out what 
the number means, you can use the ‘ATTR’ calculator program. 

You could set variable ‘A’ equal to the result of ATTR (x,y) in a 
program and make use of the values of INK, PAPER, BRIGHT and 
FLASH obtained. One good use for ATTR is detecting the nature of 
the character at a certain position. For instance, you might wish to 
have a space Craft travel along until it hits a mountain. You could set 
the mountain up in a different colour to the rest of the picture, and 
by testing whether the character space ahead of the craft is that of 
the mountain or not you could tell when collision will occur. 

ATTR CALCULATOR 

23 INPUT “RITHRT' IR 

2B IF RA-S8t(S FHEN GO Fo Se 
38 LEY &=8-3226: PRINT “Ftssh 
48 GO TO 68 
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S@ PRINT “Ftash off, 
6@ IF 5-64:@8 THEN 66 ‘to 98 
7@ LET ASA-G4: PRINT "Bright « 


Be GO TO 1a8 
9@ PRINT “Bright aoFF,” 
190 IF RAv’S@sINT (A+8)} THEN eo To 


120 PRINT "“Parer is “;ENT tADI 
,°, RK 353 “3H-tGsINF (HvS3) 


440 PRINT "NO Ink-.Paper is “";AY 


In this case the mountain will usually be in a known position 
(although you could arrange for a moving planet surface) so the use 
of ATTR is not of great value. But in other cases you will not know 
exactly where an ‘obstacle’ is or you may only be able to note 
obstacles’ positions by many IF... THEN statements. In these 
circumstances, ATTR could be very useful. 


Plotting a rainbow. 

Let's try some high resolution printing in colour. The next program 
plots a rainbow. Take note of how the command to draw an arc of a 
circle is used to produce curves of colour. Note too that the arcs of 
a different colour are a character space apart. Can you recall why 
this must be so? There can only be one INK colour in each character 
space, so if you draw two differently coloured lines too close 
together, then the colour of the second one will ‘contaminate’ the 
first by changing all the INK values in that square to its own code. 


2 REM RAINSOE 
2S LET w= 
SB BIN ses fGi: SQ AVR BR 
&@ LET west 
S PRPER FP: AORCER &: CES 
28 FOR &=28R TO S58 STEP if 
22 FOR v= 23 Fa Ss 
3@ INK @2f33: PLOT afu,.8: DORA 
~&,3-8@4u “prve 
48 NEY wu 
SQ LET ys=us2 
S&S IF me THEN GO TOD 205 
Fe MEXT 
1208 LET «& tay = 
2%G3=5:> LET BEd) ad: Pe? ats =G- 
LET 3163 =2 
218 RETURN 
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28S PRINT PREFER F;AT 29,5; IK 

B'S", TAK a; "R"; ; Teg S; 75") INK 

£,°OTr': INF Res EINK > “*uaM’’ 
128 colours 


Being able to print two colours in each character square can be 
used to advantage to create up to 128 colours on your Spectrum. 
You need first to define a graphics character which looks like a very 
small chess board (as is on the ‘A’ key of the ZX81). 

By making the PAPER one colour and the INK another you will 
effectively make haif of the character one colour and the other half 
the other. Because the colours are spread evenly, the two colours 
mix to form anew one. Red dots and yellow dots mixed in this way, 
for example, give a good orange. Try it now, and see just how many 
different colours can be produced on the Spectrum with the 
program. 


a2 REM COLOURS 
PREER 


_#; BBRDER ©: OLS. 
oo REM CHESS-BOARD | LIKE CHR 
40 FoR X=@ TO 6 STEP. 
S@ POKE USR “P“+x,85 
68 POKE USR “PM EXEL, Li?e 
NEXT xX 


i968 FOR B=e FO 1 

2138 PRINT PRPER FPF; INK I: SRIGH 
T 6B. “PR" 

120 NEXT B: NEXT I: NEXT F 

136 PAUSE 268 

14@ CLS : PRINT “AND NER? FULL & 
ar «-": PAUSE 286 


CLs 
i6@ POKE 29692.106 

@ FOR P=8 TO’? 
a8@ FOR I=e8 To ? 

490 FOR B=@ To 2 

BOG FOR K=8 TG Si 

#108 PRINT PAPER P; INK I; BRIGH 
T 6; “PPPPPPPPPEPPPPpPpPpErPPPPpPpPppp 


PPPPp* 
228 REM | ALL ‘P'S ARE GRAPHICS 


HRS ON KEY 
Zoe NEXT K 
eae coon #3692, 188: 
AUTO SCROLL 
ase ERNEST B: NEXT ££: NEXT F 
26@ STor 
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You could do this another way by drawing cross-hatched lines 
across the screen using the DRAW and PLOT commands, drawing 
the lines so that they are one pixel (dot) apart. By drawing in one 
INK on top of a different coloured paper the same effect could be 
obtained as when the graphics character was used. 

The Spectrum can produce a very fine display by drawing lines 
with the DRAW command which interact to give a kind of 
‘interference pattern’. NETWORK is a good demonstration of this. 

This program plots the screen's central position over and over 
again each time drawing from that point to a position on the edge of 
the screen. If you draw to every edge position you will eventually 
get a solid mass of colour. But by drawing to pixels at least one 
pixel apart very interesting patterns emerge. This is because the 
lines your Spectrum draws are not completely straight, but vary in 
fixed ways depending to what point and from what point they are 
drawn. The program draws all INK colours against all possible 
different PAPER colours, and the effect depends on the colour mix 
involved. Some colours seem to interfere with each other more 
than others, and others appear to swim around the screen in 
eddies caused by the pattern. 

28 REM NHETUORHK 

28 LEY 2=1 

S@ LET ink = (RNDSS)} <2 
4@ LET paper=  (RND#53 +i 


SOQ IF ink=Paper THEN GO TOG 38 
5S PRPER paper: INK ink: CLS 


68 FOR Asi TG 2 = 
7@ FOR X=8 TO 254 STEP 2a 
6 PLOT 125,86: DRAW (-Leresi + 

(M42) .Z2%-8? 

a@ Bea ae 

180 FOR Te 4°75 STEP 2 

118 pror” ize. Bea: BRAY 2S sez. Z22- 
Be RTY ez) 


3@ LET 2=-z 
et NEXT A: PRUSE 106: GO To ae 


The next program is at least as attractive as NETWORK. I've 
called it ICESTAR. It draws a many-armed star in white and then 
using a technique which adds a new dimension to your Spectrum, 
overlays a new PAPER colour on top of (or underneath) the 
snowflake. Usually, as you'll recall, to change the PAPER colour 
you need to first state the colour number, and then use the CLS 
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(clear screen) command. Of course, this destroys the pattern 
you've drawn. For this reason, in this program, the Spectrum 
creates a string of spaces the same length as the size of the screen 
{704 character positions) and by printing this string over the pattern 
in random colours, a splendid effect is obtained. 


18 REM XCESTAR 
2B INK YF: BORGER A: PRE 2: 


GB LEFT Pes” “: LEY Fs=" ” 

4@ FOR X=@8@ TO Ye82 

5@ LET Pse=P s+ 

60 PRINT “."°;3 : NEXT xX 

7@ REM CREATED STRING oF 
SPACES SIS OF SCREEN 


O38 LL. FLAG =e 
106 FOR K=28 FTO 88 STEFF in 
LEF 2=PIr 


13@ LEF E=i2Z-¥YiI vt 

148 FOR L=Y TO = STEP £ 
25@ LET S=KsCOS ils} 
ise LET H=S25IN L 


LET 
138 PLOT LBG+H,.Be+u 
198 NEXT L 
2800 LET FLAG=FLAGIL 
eile IF FLAG=i81 THEN GO TO 232 
2208 GO TO 1856 
#230 LET FLAG=@: NEXT K 
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24@ LET COL=INT (RND£6} 41 
ee eee AY &@.@6; PAPER £01: GU 
262 PAUSE 10@: GO TO 240° 

You can achieve this same result in another way too. Think how? 
The most obvious alternative is to POKE the ATTRibute area of 
memory with the code to change the PAPER colour of each 
location on the screen. The ATTRibute area begins at 22528 and 
the screen on which PAPER is changed (excluding the bottom two 
lines where new program lines are entered) ends at 23231. The 
following program also changes the colour of the screen without 
destroying the text or pattern there: 


10 FORx = 22528 TO 23231 
20 POKEx,32 
30 NEXTx 


Can you see which colour I'm POKEing? Keeping in mind that the 
PAPER colour is stored as eight times its code, this has POKEd the 
screen with code 4, which is green. 

The next program, NIGHTWATCH, plots a very attractive, 
balanced picture on the screen, using many of the colour 
commands we've discussed so far in this chapter. 


1@ REM NIGHTRATC 
2@ PAPER @®: INK 3. BORDER ©: G 


3@ LET @=INT (1272RND? 

4&8 LET G=INT (S72RND;3 

S@ LET Z=INT io Rt ae 

6@ LET R=iINT 

7@ IF R Sms S THEN, eo TO i388 


INK 
@ PLOT’ 12 7-A.OoV7+EB 
10@ PLOT lev+An. 37-5 
11@ PLOT 12?7-f.&?7-B 
126 PLOT 127+4¢8.67+5 
138 GO TO 3 
14@ PLOT OVER i; a2 Fs Sv -5 
i5@ PLOT OVER 12: eer. SB T+eB 
168 PLOT OVER i: tees .27 46 
178 PLOT OVER i; le? ey 2G) -5B 
18@ GO TO 3o 


Drawing circles in colour on your Spectrum can be rewarding. 
The statement you use is of the form: CIRCLE INKi;x,y,z where iis 


Exploring the Spectrum's colour 41 


the INK colour, x and y are the coordinates of the centre of the 
circle, and z its radius. RANDOM CIRCLES is a program.which, as 
its name suggests, draws randomly-placed circles in randomly- 
chosen colours. 


REM RANDOM CIRCLES 
PAPER @: CLS 

LEY X= f2AdsANH. +10 
LET Y=fiSé3RNp +18 
LEFT Zs {({StRND) +21 
CIRCLE INK 2;X%,¥,18 
Go To ia 


The BOWLING BALL program does its work by drawing circles 
of increasing radius from the same centre (using a STEP of @.1 in 
the radius increase). This has the strange effect of leaving five main 
white areas in the balls, and hence the name for the program. 


BOWLING BALL 


INK 12: PRPER_G: CLS 
LET xX=188: LET Y=ex 
FOR a=@ FQ 22 STEFF .2% 
CIRCLE X.¥Y.a 

NEXT 3 

LET €=208: LET Y=85 
GO TQ 28 
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Drawing circles one on top of another, as you saw in the random 
circles program above, can produce multi-coloured circles, 
because as two circles are printed close together, the colour of the 
second changes part of that of the first. This effect is used again in 
the program CONE. 


Yes 
4@ FOR x=38 TD 268 STER 29 
S@ LET 2£= (GeRNp}) + 
66 CIRCLE INK Zixs ty Y¥-25 
72 Lely Y= +4 


x 
308 PROSE 2 


As you can see the circles are drawn in ever-increasing size and 
in random colours, producing an almost three-dimensional effect. 
The final program could form the basis of a rather more complex 
figure drawing and colouring program. It allows you to draw a 
triangle of any size within the screen’s boundaries and it will be 
filled in the colour of your choice. 
‘RED TRIANGLE DRAVER 


i 
S SCRDER 1: FRRPER F. CLS 
28 INPUT “START X COORD INATE™ 


yr? INGUT “START WY COGRDINATET 
3@ INPUT “HEIGHT? NH 


3S GF wWteH>itS THEN BO T&G 1665 
46 InNeSUT “ ENGTHESS 
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45 IF X4L:355 THEN GO TO 20968 
SO INPUT “CGLOURT' ; C 


18 » 
"“ENTER AGAIN" 
118 GO TO 16 
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Exploring the Spectrum's 
sound 


As you probably know, it is very easy to get sounds out of your 
Spectrum. You use the BEEP command. (You'll find it printed on 
your keyboard in red below the ‘Z’ key. First press the white CAPS 
SHIFT key, and the SYMBOL SHIFT key on the right-hand side at 
the same time, and finally — still holding down the red shift key — 
press the ‘Z' key.) To make a sound, type in something like this: 
BEEP 1,0 (followed by, ENTER). If you try this you'll hear a tone 
which is about a second long and at a pitch around Middle C. The 
first number refers to how long a note is wanted, and the second 
determines the note’s pitch. The ‘duration’ number, which can be 
from about 0.00125 to around 19, is in seconds. Any time shorter 
than 0.00125 will not really sound at all, and a duration longer than 
10 seconds will throw up an error report, “Integer out of range”. 

The second number can be in the range —6@ to +69. Each step 
refers to either a semitone above Middle C (which is number @) ora 
semitone below it. So BEEP 1,1 will sound a tone a semitone above 
Middle C for a second, and BEEP 1,—1@ will sound a note 10 
semitones below Middle C. Remember to put the comma 
between the two numbers. 

You can get some idea of the range of frequencies the Spectrum 
can produce by running the following short program: 


10 FORn=-—60TO 69 
20 BEEP.2,n 
30 NEXTn 


As you heard, the pitches ranged from a series of fast clicks to 
high warbles. For music you may well conclude, as | have, that the 
most useful range is around Middle C — about +20 either side —and 
this possibly explains Sinclair's assignment of Middle C to zero. 
However, the highest and lowest pitches can be of use as well, as 
we'll see in due course. 
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You have probably noticed how quiet the sound is. To get louder 
sound, you need a lead to plug your Spectrum into an external 
amplifier. Most amplifiers with a ‘mic’ socket are suitable. You can 
get the sound signal from both the ‘ear’ and the ‘mic’ sockets at the 
back of the Spectrum, with the ‘ear’ signal being a little stronger. 
You may have to experiment to see which is best to attach to your 
amplifier. 

Once you attach an external amplifier you may notice that as you 
press each key there is a ‘click’. This feedback on pressing a key 
can be useful, but the click you hear without external amplification 
is much too quiet to be of use. You can remedy this by entering the 
following, as a direct command: POKE 23609, 10@ (then press 
ENTER). 

Now, whenever you press a key there is a distinct beep. This can 
be very useful when you’re typing quickly, and only looking at the 
screen occasionally. However this beep will also be amplified by 
your external amplifier when you use one. You will either have to 
put up with this or leave your Spectrum in its ‘click’ state whenever 
you are using sound a lot. Of course you can plug and unplug the 
leads at the back, but this is rather a lot of fuss. If you do use an 
external amplifier, though, you will have to unplug the amplifier 
from the back of your Spectrum each time you want to load a 
program or save one (depending on which outlet you used at the 
back). 

Let's get back now to the music. As each note number in the 
BEEP command represents a semitone rise (or fall if it's a negative 
number), there are 12 of these to an octave. Thus Middle C is 0, and 
the C above is 12, and so on. You could type music into your 
Spectrum by setting your tune out as notes on staves, with bar 
lines, and then convert each note to its BEEP number and each 
note’s duration to a number (probably setting a single beat as 0.25 
seconds). But this is time-consuming. It would be much more 
convenient to be able to type in a melody as a series of letters for 
notes, and numbers for beats. 

Our MUSIC PLAYER Program allows you to do this. It tells you it 
treats the letters A to G as the lower octave (where ‘C’ is Middle C) 
and letters a to c as the next higher octave. You enter your melody 
as a single line where each note is followed by a number which 
indicates its duration. |'ve chosen 1 to represent a one beat note, 2 
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for two beats and so forth. To give yourself a choice of speed add a 
line like this: 


5 INPUT “What speed? 1 is slow, 5 is fast” ;x 


You also need to change line 37@ where the BEEP command is 
executed: 


370 BEEP X(Z)/x,Y(Z) 


As you'll see when you try this program, it is much easier than 
having to write out music on staves beforehand. 


2@ REN HUSIC PLAYER 

20 0M X(582:> DIN VY ise. 

3@ LET K=@: LET b= 

48 BORDER 2: PAPER 4: INK @: © 


S@ PRINT AY _B, 18: XSNVERSE 2: °% 
USITC PLAYER” ”’ 

6@ PRINT TYPE IN YOUR SUSIC A 
S A LINE OF LETTERS AND MUMSERS- 


76 PRINT °" "FIP NOTES AS LETTE 
RSE FOLLOVED By THEIR LENGTH IN & 

Be PRINT “7 "YU HAVE FD DCTR 
VES.THE LQUER ONE IS FROM A To & 
AND THE UPPER FROM a FO ¢c.’ 

9S@ INFUY NS 

1866 FOR A=3 TOS LEN NS AEP = 
33@ IF CODE NSiAD iSF THEN GO TR 


420 IF NS fRI="S" THEN LET K=-®. 


13@ IF N§(Al="d" THEN LET K=8.5 
146 IF NS(A} sce" THEN LET K= 
2 =f THEN LEY =: 
a ea eS Se oe 


=i 
220 FOR T=2 TQ LEN NS SYEP = 
23@ LET XTLISUAL NTT) «ot 
248 LEY t=b+4+2 


NEXT T 
266 GO TO 368 
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STor 
28G@ IF NS (AR Hs" THEN LE YF K=-8. 
29G@ IF NS tA ="S° THEN LEY K=-., 


S@@ IF NS(A) ="F" ae LET Ko. 5 
310 IF NS§{A) =«"G" LEY *=8.5 
320 LET YthLis (CODE Ne {Ais -hh7-K2 


33S@ LET K=8 

34¢@ LET L=b33 

SS5@ GO TO 28e 

368 FOR 221 TR LEN Nee 
37@ BEEP XtFZ va. Y (FZ) 
38@ NEXT 2 


Ul 


PIANO 

It would be good to be able to play the Spectrum as a piano. The 
next program allows you to do this. It uses the INKEYS command 
to scan the keyboard to see which key you press. I’ve written it so 
that you have a choice of three octaves with the note ‘C’ being on 
the ‘T’ key in each case. A pictorial version of your ‘piano’ keyboard 
is presented on the screen to help you remember which keys go 
with which notes. You can think of the letters O to P as the white 
piano keys and the numbers above them as the black sharps and 
flats. The Spectrum was designed to play a fairly good ‘even 
tempered’ scale, which is rather like that on a real piano, so you 
should get reasonable (if rather quiet) music from your ‘piano’. 


21@ REM PIANO 
2e INK 7: BOREER @: PRPER 2: C 


LS 

S@ PRINT AY §S,1322;: ENVUERSE 2:5 ° RP 
i=) 

4@ PRINT AY 8,22 “YOUR PIKES 
ROM 76° TO (PTT 

5@ PRINT AT 12. @; “PRESSING ‘Zz: 
WILL GIVE A HT ot OCTRE. ‘x 
GIVES A LOVER ONE 

6@ ERINT AT if. a; THVERSE 4,;° 
RESS “U' FOR VIBRATO “AND HM? To. 


78 PRINT AT 13,8; INVERSE i: “PR 
RESSING ‘C* PUTS HID C GN ‘*T’ A 


B@ LET K=@.: go. M2. S 
poe UISUAL DISPLAY 
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ia2@ PRINT 3; INVERSE I; AT 16.4; “ 
Pa 


B . . . 
aT’ s.4a5:"* 3"; at &.19% "ae sat 6.232 


14@ IF INKEY §=“2“ THEN LET K=32 
15@ IF INKEY$="X" FHEN LET K=-2 


4160 IF INKEY#="“C“ THEN LET 
A47@ IF INKEY€=“U" THEN LET X=&. 


= 18@ IF INKEYS$="M“ THEN LET xX=@. 
19@ IF INKEY$="2" THEN BEEP X. - 
20@ IF INKEY&="S" FHEN BEEF xX, - 
aoe IF INKEY&=“4"“ THEN BEEF xX. —- 


2E@Q IF INKEYS="G" THEN BEEF X.2 
*Sa@ IF INKEY$="7" THEN GEER x.5 
"Bae IF INKEY$="9" THEN BEEP X,6 
.g5@ IF INKEY#="@" THEN BEEP X,8 
260 IF INKEYS="0" THEN BEEP Xx, - 


_278 ZF INKEY@="“N" THEM GEEP XxX. - 
280 IF INKEYS=“E“ THEN BEEP XxX. - 
290 IF INKEY&="R"“ THEN BEEP xX. -— 
S00 IF INKEYS=“'F“ THEN BEEP X.& 
oo IF INKEYS=“V" THEN BEEP X,2 
ape? IF INKEYS="“U" THEN BEEP X.4 

S@ IF INKEY$="“I"“ THEN BEEP X.5 
4@ IF INKEYS=“O" THEN BEEP X.7 
IF INKEYS="P" THEN GEEF X.9 


2 
6@ GO TQ i35@e@ 
@ STOP 
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The program asks you which octave you want with a choice of 
either having Middle C on the ‘T’ key, or the octave below this or 
the one above. Of course, there’s nothing to stop you rewriting 
lines 140 to 350 so that touching other keys produces different 
notes. 

Finally, the program asks you if you want ‘vibrato’. This sets the 
note’s duration to 0.03 seconds instead of 0.3. Experiment with 
other duration values to see the effect. | found that durations much 
longer than about half a second made it too slow to play, and much 
shorter than three hundredths of a second was too ‘clicky’. You 
may like to think of a way to introduce a change in tempo. You'll 
need to have the duration of each note vary to produce variants like 
‘slow,quick, quick’. Try a subroutine with aGO SUB command. This 
would need to do something like play the pressed note at the basic 
duration and then follow it with two more notes half or even a 
quarter as long as the first. But don’t forget that subroutines take a 
little time to execute, so the whole program might start to feel 
rather unresponsive if you add too many things. 

The Spectrum will allow not only fractional durations, but 
fractional note values as well. This might come in useful if you want 
to tune your ‘Spectrum organ’ to another instrument. This would 
be easy to do. If you add the lines: 


355 IF INKEYS = “K” THEN LET k=k+0.05 
356 IF INKEYS = “L” THEN LET k=k—0.05 


then the notes you play will be a fraction sharper or flatter with each 
press of either the ‘K’ or ‘L’ keys (’K’ to sharpen, ‘L’ to flatten). You 
could use this facility to produce fractional note pitches to play 
‘oriental’ sounding music, with 16 or more notes in a scale, instead 
of the usual 12. 


OTHER EFFECTS 

You can do more with your Spectrum than just turn it into a piano. A 
visual display of musical notes can be produced. To do this we'll 
use the Spectrum's ability to define new characters discussed in 
detail in the games chapter. The MUSIC WRITER program forms 
the basis of a longer program which allows you to type in your 
music much as you did in MUSIC PLAYER as letters, numbers and 
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# signs, but this time it turns each note into a crochet, quaver or the 
like on the screen, printing it on the correct stave. You can change 
this program so that as you play your Spectrum like an organ or 
piano, It prints the notes on the screen. 


18 REM MUSIC WRITER 
2@Q PAPER G&G: INK @: BORDER F: 


3@ LET xX=151 
46 REN DRAW STAVES 
S@ FOR Yi TO SF 
GQ PLOT @.¢%: DRAW SSS, wR 
FO LEFT X=xX-3 
6@Q@ NEXT ¥ 
Qe FOS A=8 FO F 
198 READ T 
22@ PORE USR °L'4A,T 
128 NEXT A 
23@ FOR B=8 TO 7 
144@ READ T 
2S@ POKE USSR “RFE, 7 
160 NEXT & 
178 fone QVER 2;,AT 3,0; “L° AF 


188 BEEP 8.25 ,8 

19@ REM TOP OF NOTE SHARPE 

Pee DATA @,4,7,58,4¢,4,48,4 

2190 REN BOTTOM OF NOTE SHARPE 
REG DATA 8.608, 24.124, 124 ,58,.8, 


298 STar 


ADDING SOUND EFFECTS 
There’s a good chance that you are interested in playing games on 
your Spectrum. Can the computer give the added dimension of 
sound to games? Can it make sounds like phasors firing, footsteps 
or train noises? The answer is both ‘Yes’ and ‘No’. It can produce 
some fairly useful noises which will enhance your games. 
However, if you expect the sounds to be as good as those 
produced by arcade machines, I’m afraid you'll be a little 
disappointed. 
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PHASOR FIRE, PHASOR FIRE 2 and PHASOR 3 give three ways 
of making a suitable sound for a space shooting game, and 
WALKING shows how you can incorporate sound with movement. 
Note that the first graphics character in line 140 is an L, the second 
isak. 


1@ REM PHASOR FIRE 
3 
4@ FOR Ye=d FO 16 STEFF 2 


7@ NEXT X 


10 REN Paooer FIRE = 
2@ FOR X=-18 Tro 2 
308 BEEP @.8325,%X 
4@ NEXT X 
S@ FOR W=@ TO -S STEP -i 
6@ BEEP @.8125.Y 

NEXT ¥ 


1@ REN PHASOR 3 
20 FOR X=S TO 2@ STEP 1.5 
30 BEEP .6@5,X 
4Q0 NEXT X 
S@ FOR Y=20 TO 3S STEP ~-i.5 
6@ BEEP .805.Y 

xT OY 


1@ REN hing InG 

22 FOR A=@8@ TO 2 

3@ READ X 

4@ POKE USHA "L°’+h,x 


a 
148 PRINT AT 28,0; "9": PAUSE 3: 

Pec; ee": Pause a3: PRI 
NT ATF 2e.c:" ° 
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25@ SEEP G.G82,38: BEEP 8. Re, &A 
160 NEXT C 
17@ GO TO 18a 
4230 REN CATR e FoR 2 VERSIONS OF 


196 DATA 24,36,.153,126,24,188,1 
32,4,24,36, 153, i236, Sa, 38,332,232 
260 STOP 
Another useful routine is the program which simulates a bomb 
drop. This makes the frequency of the note fall from around the 
highest pitch available to one some 20 semitones lower. The rate 
of fall is fast at first, but gets even faster to give the impression of 
the bomb speeding up as it closer to the ground. 
1@ REM 


BO 
26 FOR sti TO SS STEP -8.3 
3@ BEEP ah aX 


s@ Fon ye 

6a BEEP @. ei, _ie: BEEF @.@1.-5 
@: BEEP @.@1.-68 

?7@ NEXT Y 

More elaborate micro computers offer not only the ability to play 
single notes, but also up to three voices at once, with variations of 
frequency (called frequency envelopes) and perhaps a white noise 
generator to create surf-like sounds. Your Spectrum can't match 
this, but you can use some tricks to go beyond simple BEEP BEEP 
sounds. FREQUENCY/TIME SHAPES and FREQUENCY SHAPES 
show how you can produce frequency envelopes of sorts. 

In the first of these programs, as well as being able to vary steps 
between the two notes, you can also vary the duration of the note. 
In this example it goes from Middle C to the whole note above 
starting with a fairly short duration and getting shorter as it 
approaches the final frequency. 

r 
FREQUENCY/TIME SHAPES 
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190 REM FREQUENCY -TIME SHAPES 
#2 INK 7: BORDEN G&: FPRPER 32: £ 


SB LET DUR =. ao 

4@Q@ FOR F=8 FO 2 STEP 8.5 
S@ BEEP DUR,F 

£2 DRA SEBeDUR, 2BOeF 

Ye LET BDUR=HUR-@.2e5 

Se NEXT F 

S@ GRU 56.6: SEEP G.5.2 
1006 GO TO i@e 


The second program ramps up (or down) from a given frequency 
to the next in steps which you define in line 4@. Instead of the 
sound jumping from one pitch to the next it slopes up to it or down 
to it by incrementing the pitch in fractional values. 


io. 
\ 


‘ 
. 
AS 
\ 
a 


a 
ey 


a Bae 
ee en 
28 REM FREGUENCY SHAPES 
22 SCRDER 4: PAPER 4: OLS 
38 REN YOU CGULD CHANGE THE 
VALUES OF F,FE,AND S. 
4@ LET F=8@: LET FE=3: LET S=2 
Sa FOR M=F TO FE STEP 5 
GB DRAW SDs. Snax 
FS HELP B.8o.x* 
: NED = 


2@,@: BEEP @.2.FE 
vW=FE TO F STEP is 


You may wish to experiment with these envelopes, putting 
several together to form more complex sounds. Doing this sort of 
thing makes the Spectrum sound even quieter, so | strongly 
recommend the use of an external amplifier. 

The final program in this chapter, MUSIGRAPH, links together 
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the Spectrum’s sound and colour capabilities. It sounds notes of 
random pitch and duration (with fixed limits). The higher the note 
the higher up the screen a blob of colour is printed, and the longer 
the note, the further to the right the blob is printed. The result is a 
collage of colour where what you see corresponds to what you 
hear. 


SQ LET BUR=RND 2.4 
6@Q LET INK = {ANG +1 
70 PRINT INK INK; AT 2@-NOTE,xX 


8Q BEEP DUR,.NOTE 
Q@ NEXT X 
188 CLS : 60 TO 38 
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Using the Spectrum in 
business 


Like all computers, the Spectrum by itself can do nothing. With 
appropriate software a vast variety of tasks can be handled. Users 
regularly buy software with many features they do not want, but 
which do the basic work to be done. 

As time goes on (if the system is good) they gradually come to 
use the features, and before long they cannot understand how 
they got on without them. Some examples of what a computer 
system can do are given shortly. These examples show that 
computer systems can be an enormous help — if they are organised 
properly. 

As | pointed out in the first chapter, computers can do anything 
which can be reduced to a set of elementary commands which 
they can act upon. They will always act exactly in accord with the 
information they've been given. For example, if your invoicing 
program contains a section to ‘send a reminder to everyone who 
has not paid their account this month’, some people will be getting 
letters threatening legal action if they don’t pay £0.00 AT ONCE. 

The degree of care required in producing and using computer 
programs depends upon the application. The effort required to 
ensure absolutely that the space shuttle goes up, rather than 
down, would be wasted on a new and better anagram game. 

Computer applications can be grouped into a number of (not 
clearly delimited) classifications: 


BUSINESS AND DATA PROCESSING. Usually fairly simple 
operations are carried out on relatively large amounts of data. Stock 
control, for example, requires virtually nothing more difficult than 
addition and subtraction; but it is important to find the required data 
as fast as possible. Most of the time taken to run a program is used 
up in handling information held in memory. A well-designed 
business system will comprise modules which can interact with 
each other. Thatis, a sale should cause changes in your ledgers and 
your stock; and invoices, advice notes, and the like should be 
produced. There are advantages to having your word processor 
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program interact with your business programs. Everything should 
be as foolproof as possible. In particular, human error should be 
expected and checked for when this is feasible (for example, the 
program should check that entries are, in some sense, reasonable). 
Such business systems are few and far between, but they are 
worth paying for. 

Good software is expensive to produce and maintain. One 
Spectrum package which is available is a very sophisticated project 
planner, which is claimed to be at least as good as any similar 
program on the market. It costs a good deal less than other 
planning programs; yet it costs more than a 16K Spectrum. When 
looked at in perspective, the careful user will spend more on 
evaluating the package than the package price (software 
evaluation may require several days work by a highly qualified 
person). It will take time to tell if users will be prepared to pay the 
price which will be necessary to stimulate production of really first- 
class software. 


WORD PROCESSING. With an add-on keyboard, the Spectrum is 
capable of being a very respectable word processor. A word 
processor allows you to type in text and see it on the screen in raw 
form. You can edit, insert, delete, or move text to your heart's 
delight. When the wording is right, you can print your text, neatly 
formatted. Then you can go back and make further changes. 


SCIENTIFIC OR ‘NUMBER-CRUNCHING’. Caiculations can be 
very complex. Relatively little input, output, and memory may be 
required, but much CPU time is spent on actual calculations. 


TECHNICAL APPLICATIONS. The Spectrum can be used to 
simplify life for people such as architects, planners and engineers. 
Elementary programming skill can pay off for these applications, as 
many one-off and non-standard calculations arise. Standard 
technical software also exists, and is often very worthwhile. 


REAL-TIME AND CONTROL APPLICATIONS. In this group, the 
computer is plugged into the real world. The result of a process is 
not a printout, but an action, such as switching motors on and off. 
In many cases the programs are time-critical, that is the result must 
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be ready at exactly the right time, neither too early nor too late. This 
is unlike most other applications which can proceed at their own 
rate. 


COMMUNICATIONS. Computers can be used to communicate 
with a variety of devices, including, in particular, other computers. 
This can be done over ordinary telephone lines. Many interesting 
possibilities arise. 


The Spectrum is well-suited to business applications because itis a 
powerful machine at a very reasonable price. If a business is to use 
acomputer, there are obvious and real advantages to owning one. 
Just about everybody who has used a typewriter has uses for a 
word processor. The Spectrum may emerge as a much-used real- 
time controller, and will show its capabilities doing useful scientific 
work. 

It is generally recommended, quite rightly, that you should look 
at the software you need before deciding which computer to buy. 
Many people have been caught out by buying computers with 
impressive specifications only to discover that suitable software 
was. not available, and would be somewhat expensive to have 
produced to order. This attitude should perhaps be modified 
slightly in view of the enormous market which the Spectrum has. 
Whatever you need is either available now, or will probably 
become available in due course. Spectrum business software 
tends to be fairly cheap compared to similar software for other 
machines. However, lengthy demonstrations, after-sales support, 
and custom modifications are rare. When selecting software for 
the Spectrum, keep in mind that the quality of packaging and 
advertising will not necessarily correlate with the quality of the 
software. Recommendations from knowledgable users and, to a 
certain extent, magazine reviews are the main sources of 
information. 

Even if you decide not to buy commercial business software at 
the moment, there are a number of ways you can use the 
computer to help you using programs you've written or adapted 
yourself. 

The balance of this chapter is five programs I've written to give 
you an indication of the ways in which the Spectrum can help you in 
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agsmall business, or at home. The programs may not fit your current 
needs exactly, but should be fairly easy to modify to make them 
suitable for you. 

The programs are: 


PERSONAL ACCOUNTS — which allows you to specify any 
number of recurrent costs and — like the other programs — contains 
a menu to allow you, among other options, to save the current 
state of your accounts on tape. 


DIARY — which sorts entries into date order, and prints them out on 
demand. 


TELEPHONE DIRECTORY — which accepts names and telephone 
numbers (as might be expected), searches rapidly through the 
directory for a requested name, and can be updated and expanded 
at any time. 


DATABASE — this stores up to 130 items of 24 characters twice 
(on a 16K machine; a much larger file can be created on a 48K 
machine), in a way which allows them to be accessed by one of 
two criteria. The program is set up to store a collection of 130 
records and can print out a list of records in alphabetical order by 
artist name or by title, and allows searches to be made through 
either list. It can easily be adapted to handle other requirements, 
and, if only a single file is required, and less characters per file are 
needed, can handle many more items, while still retaining the order 
and search facilities. 


FINANICAL MODEL/SALES PROJECTION — one of the most 
popular packages of business software in the world is Visicalc, a 
spread sheet calculator which allows the user to feed in current 
figures, then make future projections based on those figures. This 
program performs two of the tasks of Visicalc: it analyses the 
pattern of sales figures from month to month (or between 
whichever time periods you decide), and then allows those figures 
to be projected, with the projection based either on the average 
sale per month for the period when results are known, or on the 
sales results of the last known month. 
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These programs may well need modification to be of use to you 
in asmall business, or for home use. The main reason for including 
them in this chapter, apart from their immediate use, is to show the 
ways business software can be written. Business software rarely 
contains ‘clever’ coding as do many arcade games programs. The 
approach is usually more methodical and less exciting. The tasks to 
be accomplished by a business software package can usually be 
clearly delineated before you begin, whereas a game may evolve 
as the program is written. 

You'll find it relatively easy, once you know what you're trying to 
achieve with a business program, to write the program, or to get 
someone to write it for you. 

We'll now look at the programs one by one, and see what we can 
learn about writing business applications software from the 
listings. 


PERSONAL ACCOUNTS 
When you first run this, you'll see a Menu appear which reads as 
follows: 


Current balance is £0 


ENTER 

1 — To start from scratch 

2 —To modify payment schedule 
3— To deposit money 

4 —To save on tape 

5—To stop 


It is a good idea to provide a menu like this to ensure that the 
program can be used without either elaborate instructions, or the 
programmer leaning over the shoulder of the user explaining what 
to do next. It would be reasonable to assume that the first time you 
run this program, you enter 1, ‘To start from scratch’. When you do 
this, you'll see: “Enter the number of items which must be paid for 
each month”. Here you’input the number of recurrent costs you 
have, such as your mortgage, car payment, any hire purchase 
commitments, your credit card, other standing orders, and the like. 
It is best to be over-generous with the number of categories when 
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you first run this, as it is impossible to add later ones once you've 
started using the package. 

If you enter 4, as the number of recurrent costs (as is shown in 
the sample run which follows the program listing), you'll then be 
asked to enter, one by one, the ‘name of item’, and then the 
monthly cost of this. Names of items, and their costs, can easily be 
changed later on. Once you've run through the list (adding ‘blank’ 
items for spare numbers you've given yourself in excess of your 
immediate needs), you'll be given the chance to modify any of 
them you wish: ‘If this is correct, press ENTER. If there is an error, 
enter the number of the item you wish to change.’ 

If the program does not yet have your bank balance, as it will not 
when you first run it, it will instruct you to ‘Enter last known 
balance’, and then ‘Enter any deposits, including salary, one by 
one. Terminate entries by entering “E”’. As you enter any deposits 
you've made, the balance figure — shown at the top left hand corner 
of the screen — will automatically increase. Once you've added all 
your deposits, and signalled this to the Spectrum by entering “E”, 
you'll be given a further choice: “Enter 1 to subtract all of current 
payment schedule, or 2 for menu”. If you enter 1, the computer will 
subtract the total cost of all the items you listed earlier as your 
recurrent costs. It will print up the balance before, and after, the 
month’s costs have been subtracted. 

You will then be back at the starting menu, by this time the 
‘Current balance figure is . . . ' is not (hopefully) zero, as it was the 
first time you ran the program. All variables within a program are 
saved with the program when it is saved on cassette. However, 
starting the program next time with RUN or CLEAR will wipe out 
the contents. The last line of the program (GO TO 430) ensures 
that, after the first time you use the program, it will start running 
automatically, retaining your present balance. 

Notice, when you run this program, the use of INK and FLASH to 
highlight parts of the program. The colour and other graphic effects 
should be used whenever necessary to cut down on the possibility 
of operator error. As well as this, input should be ‘error-trapped’ 
where possible, so that a user error does not cause the whole 
program to crash. For example, line 325 rejects a null input from 
line 328. A null input (just pressing ENTER without previously 
entering a number) would cause a crash at line 34@. Similarly, 
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although the program asks (in line 310) for “E” to be entered to 
terminate the entry of deposits, the program will also accept “e” as 
there are no instructions within the program to ensure that CAPS 
LOCK has been engaged. 


1@ REN pene a een 


438 

2@ PRINT °’’’"FEnter the nunsber 
of items which Bust he Paid far 
€ach manth" 

3@ INPUT NUMBER: CLS 

40 DIM AS (NUNBER, 12) 

S@ DIN FBINUMNBER? 

6@ FOR A=3 TQ NUMRER 

?7@ PRINT AT 8-1,80; "Enter nape 

RASH i; A 


ite L 
ee aANPUT ast 
A-1,@0; “And how guc 
ne ta kA Bl teeee Bonth? tin £) 


100 INPUT ATA} 
110 PRINT AT A- Soe ee tri Sa ewes 
}; TRB IB; "Lf"; ATA; ™ 


12@ NEXT A 
13@ PRINT ‘If this is a eg 
lg dak a eee 1) ENTERS S FLASH 


ew 


wish ta change." 
14@ INPUT EB 

35@ IF &¢="" THEN GO Ta 28e 

36@ LET B=VAL BS 

47@ PRINT “Enter new name For i 
tem “|; 6B 

ace INPUT RS (Bs ; 

PRINT “And how much is “;AS 

iB) “each eonth? tin £3" 

200 INPUT ATE} 

21@ CLs 

220 FOR A=1 TO NUNBER 

238 PRINT AS TAB 2; A$(A; TAB 15; 
"E'S ACR 

Baa NEXT A 

25@ GO TR iBea 

26@ CLs 

265 IF BALANCE<>@ THEN GQ TR ea 


aace PRINT “""Enter tast Anan b 
nce 

a33e SNPUT BALANCE 

2390 CLs 


3@@ PRINT AT @,8; °£°; BRLANCE 
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310 PRINT “‘"“Enter any depasst= 
£ including”, “satary, ane by ane 
ST ELAS ae entries by enterins 


A * tape ee 


32a ia ae os 
32S IF Q$="" THEN GQ. Rad 32a 


eee 2 QsS=o"E“ OR QS= THEN GO 
340 LET _ BALANCE=BALANCE+UAL Os 
3582 GO TO 3@ 


@ 
S6@ INPUT “Enter 4 te subtract 
alt af", "current Payment schedui 
e“,"“or 2 fer menu"; 
365 IF C=2 THEN GO Ta 450 
37@ LET SPEND=@: FOR A=1 TO NUF 


S88 LET SPEND=SPEND+4A tA) 
NEXT FA 


CLs 

410 PRINT ‘’“’"Batance befare cur 
rent’, “costs was £°; RAL ANTE 

420 Ler BALANCE =Bal ANCE -SPEND 
43@ PRINT °“’“Current batance is 
££“; BRLANCE 

<6 eee 222 

45a INT °"“ENTER" 

oon PRINT 7"a - To start from s 
“436 PRINT ‘2 - Toa modify paype 
nt schedule" 

480 PRINT “"3 - Te depasit pane 
28s PRINT “4 - Fa save an tape 
49@ PRINT ° "5S To stop” 


S@@ INPUT C: cLS 
Sie or =1 THEN LET BALANCE =: 


Ge TC 2 

S20 IF C=2 THEN GO TO 2:18 

S2@ IF C= THEN GQ TO 2aeae ; 
S408 IF C=4 THEN SAVE “ACCOUNTS” 
SSe@ iF a7 THEN STOP 


Sample run: PERSONAL ACCOUNTS 


current balance is £13482.75 
ENTER 

Lo - Fa start from scratch 

2 - TO mOdifu Payment schedule 
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3S - Toa deposit money 
& - To save on tape 
5 - To stop 


2 CREDIT CARD £125 

2 MORTGAGE £245 

3 © ©CAR £54 .64 
@ TRANSPORT £i7 


If this is correct, press 
ENTER. If there is an é@rror, 
enter the number of the item 
YOU wish to change. 


£1342.75 


Enter any depeasits, inctudings 
Salary, ane by ane 
Terminate entries by entering £ 


Batance before current 
Costs was £13542.75 


Current batance is £903.11 


ENTER 
2 ~ To start from stratth 
DIARY 


The diary program can be used, of course, for any scheduling 
system and although it deals with days at the moment, it can be 
fairly easily modified to work for hours of the day if your needs so 
dictate. 

This is a much simpler program than any of the others in this 
chapter because its task is fairly easy to outline: (a) accept a date 
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and an event; (b) sort the events into date order; and (c) print them 
out on demand. 

However the program is not as simple as it could be due to the 
way we write dates. Although this program will only accept dates 
in one form, as the number of the day, a slash (/), the number of the 
month, slash, and the year, a moment's thought will show that if 
the computer just ignored the slashes, and sorted the dates by 
their size, it would put the 12th of December 19@1 ahead of the first 
of January 1999 (121201 is a bigger number than 10199). 
Therefore the program must be able to manipulate the date in such 
a way as to ensure that earlier dates come out as ‘smaller 
numbers’, but can still be printed in a form a human being will 
recognise. A further problem comes from the fact that the day can 
be one or two digits, and the month can be one or two digits. The 
computer must be able to add a leading zero to single digit months 
or days (and, of course, must know when such a zero is needed). 

The routine which does all this lies between lines 40 and 80. Line 
40 asks you to enter the date, given an example of the form 
required, Line 5@ sets another string (AS) equal to the date, soit can 
be simply printed in a few lines time. Line 60 checks to see if the 
second element of the date string is a slash, and if it is knows that 
the day is a single digit, so adds a zero at the beginning. Line 70 
checks to see if the fifth element of the date string is a slash (which 
it will only be if the month is a single digit) and if it is, adds a zero 
before the month digit. Then, in line 80, the date is rearranged so 
that the year comes first, followed by the month, and then the day. 
(If you're reading this in America, by the way, you'll have to swap 
the 4 TO 5 with the 1 TO 2 to overcome the fact that in the US, 
the month is entered before the day when the date is written 
all in numbers; you should also change the 25/12/84 in line 4@ to 
12/25/84). 

Line 90 prints the date in its original form (which is why we set 
BS equal to the date you entered) in the top right hand corner. You 
are then asked to enter the ‘event’ you wish to record next to that 
date. As in the PERSONAL ACCOUNTS program, you now have 
the ability to accept the entry in its present form, or reject it to enter 
it again. 

Assuming that you have accepted it, the program makes the 
element of the DS array, which is holding your diary, equal to the 
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date (in its computer-readable form) and the event. 

The routine from 220 then sorts out the contents of the diary, 
and prints them in a form you will understand, with line 330 turning 
the date back into a form you will recognize. Underneath the 
program is a short sample run. As an exercise, you may want to add 
a menu —as in the PERSONAL ACCOUNTS program — to allow you 
to save the diary as it is, or amend it. Evenin its present form, if you” 
save the diary on cassette, and then start it with GO TO 4@ (rather 
than RUN), you'll retain all the previous diary contents, and be able 
to add additional ones which will automatically be sorted into date 
order 


3@ REN OYTARY 

2@ DIM DRieoe, Be: 

S3@ FOR D=3 TO 2ee 

4Q@ INPUT “Enter date as S532 
“G42 " = 


IF Aid ="-" THEN LET A$=Ag 
{ TO 33 4"6"+Asia TO } 

Be ri AS sne te TO &@32hs(4 TOS 
a oy ven 3 


18@ P 

am“,"“ (No more tha 
1ie@ zneeT cs 
3208 Cia 


i3@ PRINT AT @,8;B¢;"-"; C8 

346 PRINT ‘‘“IF this is correci 
zPress “; INVERSE 3; “ENTER; INV 
ERSE @,"'IF incorrect, ress ‘; 
paar 4; °*8EF*""> FLASH @,”"then ENTE 

435@ INPUT ES: oe 

460 IF Es<>"* HEN Pia Fa 4 


1L?O@ LET Ds it) sAgtc 

28@ PRINT ‘‘"fr ¥ INVERSE 12 
; “ENTER"; INVERSE a; te enter 7 
ext item;"-. “or amy tetter, then 
ENTER. to", ‘print aut Sthedute” 
19@ INPUT Eg: CLs 

200 IF Eg="" THEN NEXT DB 


2318 PRINT PAPER 2; FLASH 3; “Pie 
ase stand by...": PRUSE 3@@: CLS 
2208 &=2 
23@ LET = 
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2608 IF 5>G THEN GG TO 3238 
270 IF DSiB) 2>Bbsiz: THEN oO Fo 2 


G3 «3 

>DO$(G) 7? *T4 x 
4@ LET G=G-i 

35@ IF G>@ THEN GO TO 248 


Sample run: DIARY 

@2 027384 -DENTIST 

@3 04 /34-BUyY NEU COAT 

O? £@4 754 ~-SMITHF IELD 

@5 -@6 7354 —-DOCTOR 

127127834-CHRISTMAS SHOPPING 
TELEPHONE DIRECTORY 
You should be able to see a link between DIARY, TELEPHONE 
DIRECTORY and the program which follows it, DATABASE. All 
three — in essence — accept information from the user, sort it in 
some way (or ways in the case of DATABASE) and then either print 
it out in order or allow it to be searched. The structures of the three 
programs should give you a number of clues as to how you can 
construct a filing/sorting/ access program to suit your own needs. 

The directory menu outlines the possibilities: 
Enter one number: 


i -~—- To start new directary 


2 - To add new nases 

3 - To search fer number 
4 - To save directory 

S&S - To print directory 

& - To stop 
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Sample run: TELEPHONE DIRECTORY 


EINKEY 12353-8888 
SOHN 444-7777 
HAGGIE 222-2222 
FIM 34433-12132 
URTAH 444-5555 
XENON &56-85585 


DATABASE 

This program, which is really an elaborate form of TELEPHONE 
DIRECTORY, is designed here to hold a collection of musical 
records, and store them in two files, one by name of artist, and one 
by title of musical selection. It is included in this section because it 
can be used as a business filing system. As with other menu-driven 
programs, the menu outlines the possibilities: 


1 — Create new file 

2 — Add new items 

3 — Print out by artist name 

4 — Print out by title 

5 — Search for an artist 

6 — Search for a title 

7 —To save database on tape 
8—To stop 


The program asks you to enter ARTIST/COMPOSER, then 
TITLE, then CLASSIFICATION. Classification is your own filing 
system reference. The program does not sort using this, but simply 
appends it to sorted lists, so looking for a title will produce the title, 
artist and classification; and looking for an artist will produce artist, 
title and classification. The FS array holds the file which is sorted by 
artist, and the title file is held in the E% array. When searching for an 
artist or a title, the program only compares the first four letters of 
the name. The printout shows a tiny DATABASE of five records, 
printed out in artist order, and then in title order. 


4@ REN BATRBASE 
2a PRINT ""Se tect am G@FPiioan 


2S PRINT “"3 - Drepie mew Fate 
Se@ PRINT ~“"2 -—- Rod mew itexza"” 
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4@ PRINT °"S - Print aut by 2: 
tist name" : 
S@ PRINT «‘“‘4 - Print out by ti 
6@ PRINT ‘"S& - Search for ana 
78 PRINT “°“"G -— Sesrch Far Bs t3 
e* 

6@ PRINT ““? - To save datatbas 


9@ PRINT ‘°"“B® - Ta sitar" 
3@@ INPUT A 


238 CLs 

32@ IF A=1 THEN SO SUB ele 
43@ IF Ase THEN NEXT ud 

440 IF ASS THEN GO SUB 526 
48@ IF A=4 THEN GO SUa ore 
36@ IF A=5 THEN GO SUB Fie 
217@ IF A=-6 THEN GO SUB Ba 
188 IF 8=7 THEN SAVE “DATAR" 
19@ IF R=8 THEN Sra 

288 GO TO 28 
rics DIM FS (isge,a4} DIN ES (isa 
24) 

22@ POKE 23692,8 

238 FOR wisi TO 228: CLS 


F a;ui 
260, TNPUT “Enter artistrcompose 


“asa” IF Ags= "2" THEN Go TRO 398 
#Ee2 PRINT “RR 

#2392 eines sByter tatte “; TS 
320 INPUT “Enter classi fitatior: 
code Se 

32@ PRIN "Os 

GG@Q PRINT ““TIF this 38 tarrect 


Press “; INVERSE 1; °ENTER'; INV 
ERSE @,"if nat, Press any keys". 


ZE 
3250 IF #%<32"°" THEN Go TO 244 
S60 LET Ft) =Ree eT $9": OR 
o7@ LET EStdlaTse"s MAS: sls 


LS 
PRINT INK 41; FLASH 1; "Pieas 


44@ LET B=2+4 
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450 IF &>G THEN LET @=G¢-i: IF G 
>@ THEN GO To 438 

SS IF G=@ THEN GO TO See 
eo IF Fst(B)«FgiZ} THEN GO FO 4 
47@ LET 2=2+1: GO TO 448 

453@ LET @$=F 8 (2) 

490@ LET F$t2} =F § (83 

S@@Q LET Feil “as 

S1@ GQ TQ 4728 


S4@ LET G=2+1 

S50 IF BoG HEN LEY G=@-3: IF G 
+@ See Go Ta sae 

56e@ IF G=@ THEN CLS 60 TO 26 
Soo IF Esta) tEstz) THEN GQ Fa 5 


oe 
S5ae@ LET nee odes TO S¢4a 


NEXT NM 
7@@ RETURN A 
718 PRINT "Enter name of artist 


720 ees NS: aa NS=N3+" mt 


258 To 
28 OTe re (het TO 42 =NeC TO 4) T 
HEN GO To 77@ 
750 NEXT Sons 
28@ PRINT “Artist not found™: P 
AUSE RETURN 
ooo PRINT FSiM) 


URN 

6@@ PRINT “Enter titte™ 

610 INPUT N&§: Ler N@=NS+" * 

620 FOR _MN=1 TO 

63e I Beez S TD 43 =NSt TO 4) T 
HEN eS TO S66 

xT_M 

85a PRINT HE AA net found™: PR 


66@ RETURN 
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Sample output from DATABASE: 


BEATLES: HELP: 008 
CHOPIN: WALT2: 34-3 
NHOZART : FANTASIA: ROG?" 
STONES: RAINBOW: DES 
VIVALDI: FOUR SEASONS: ES 


FANTASIA: MOZART: K3267 

FOUR SEASONS: VIVALDI: Ea 

HELP: BEATLES: 008 

RAINBOW: STONES: DES 

WALTZ: CHOPIN: 3473 
FINANCIAL MODEL/SALES PROJECTION 
As | explained at the start of these programs, the FINANCIAL 
MODEL provides a crude version of a few of the facilities provided 
by spread sheet calculator programs like Visicalc. This program is 
designed to take monthly sales figures, or number of rejects, or 
turnover in staff or any other count of an event which occurs fairly 
regularly, and has been recorded at regular intervals, and from this 
information extrapolate future monthly returns, assuming all other 
factors remain the same. 

When you run it, you'll first be asked if you want a ‘hard copy’ (i.e. 
dumped to the printer) of the program's output. If you enter 1 for 
yes, all the important output of this program (which will not include 
all the user prompts) will be LPRINTed, as well as being displayed 
on the screen. Next you'll be asked: “For how many months are 
figures available?” . Change months to days, or years or whatever 
time period you are working to. You will then be asked to enter the 
figure for each month. As it is set up at the moment, the program 
can cope with the input of 19 months. Change the ‘A — 1° at the 
start of line 10@ to a zero if you have more than 19 months’ data. 

The Spectrum will then work out the approximate change from 
month to month. Comparing month two with month one, month 
three with month two and so on. The average percentage change 
will then be given. 

You are then able to make an extrapolation of results, specifying 
the number of months for which you want figures projected, and 
whether you want this projection based on the last month for 
which you have a figure, or on the average result per month. 
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Once this has been provided, the menu allows you a number of 
choices: 


1 —To run the projection again (which means you can change 
the starting figure from average to last month, or vice versa, 
and over a longer or shorter period of time) 


2 —Torun through output again, but without entering figures 
again (although you'll still have to answer prompts for the 
projection) 


3 — To run the program from the beginning (this wipes all 
current data) 


4 —To save this run on tape (which you'll then recapture by 
choosing option 2 of this menu after reloading) 


5—To stop 


If you've run through the program once without the printer 
working, and you decide you’d like a hard copy, use 5 to stop the 
program when you reach the menu, then restart the program with 
GO TO 10 rather than RUN. Next, select item 2 from the menu, and 
you'll get your figures on to the printer without having to re-enter 
them. 

28 REN oo INANG FAL 
ES PROUEETION 
45 ca stipe rity 


28 PRINT ‘‘"“For hoe many gwonth 
S$ are Figures available? 


30 INPUT HM: LET TaT=a 
46 YF M«2 THEN GO TQ Oe 
S@ CLS : DIN AIH): DIM BM 
6@ POKE 23632,@4 
FOR A=1 TOM 
8@ PRINT AT 20,0; “Enter Figure 
‘on month “3; FLASH 43; INK 2;/7A 


RATA) 
1@@ PRINT AT A-1,08; BRIGHT 1; 


“(7 


APER 3; INK 73" Month “7A; 
AB (17-LEN STAS AIAN); ACAD.” 
295 IF Z=1 THEN LPRINT " 


Ath %3 " az STR: Ei 
pth v28i “GTA (17-LEN STRe ACH 
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119 LET TOT=TOT+A(A): NEXT A 
125 PRINT AT 20.0; 7 


1e2@Q@ LET AV=TOT-H: ran. a= =z ®Fa Ns 
23@ LET Bibi =(180@- fA (B-1) s1e@aln 


44@ NEXT B 
145 PAUSE 108 
45@ PRINT °°’? FLASH 1; INK. oe 
Difference hetween panths: 
455 IF #=1 THEN LPRINT re Differ 
ence between erine 
@ FO 2 TO WM 


+s, # 

s INK @;" - "GZIOINT {Bthi+,5 

475 IF 2=1 THEN LPRINT “HH 
3A- ~3,"*ta BOaONnth “OR: ed = rae 8 
AY +,.53 5 "H" 

28@ NEXT A 

2385S PAUSE i188 

i9@ LET TOYTAL=a 

286 FOR A=2 TOM 

2146 LET TOTRL=TOTAL +B tA} 


NE 
230 LET AVERAGE=INT ITOTAL siaa.- 
(M-4)) 71ae 

285 PRINT ° INK 2) "------------ 


i a eel 


#236 IF 2=1 THEN LPRINT = a eieeteeia 


“2ao PRINT | 7 Sve is “ 
+ INK 1; FLASH 41; | DUERDRE? oN a; 
FLASH @; "°x" 

245 IF 7= 1 THEN LPRINT “Average 
change is “; AVERAGE; “x" 

25@ PALISE 108 

255 PRINT ° INK 2; "~------------ 


on Ae cee ee ee tee ee ee ee re ee ee 


TE ee ee 


ict PRINT “"“Now a Prajectian asf 
chan 7 

265 SF Z=2 THEN LPRINT “Now 38 Pp 
rojection of change: 

270 INPUT “Hoe many Bonth’s prs 
vection de you want? “> NUMBE 


Zea Galea Le a i recorded rant 


290 PRINT . Average per wonth w 
as “;1@2t(INT AVI 

SOO INPUT “Po you Bish to hase 
Projection on - Final month; 
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a aeees 2 ~ Average month 
"365 PRINT - INK ieee asa ease 
3@6 IF Z=1 THEN LPRINT “~~---~-- 


ee ee ee cee ee wee ee re ee ee ree ee ee ee ee ee ee ee 


3310 LET E=tA iM ane ee 23 +t (483i 
INT AVLIG} >} AND D= 
315 PRINT *“Month ae recorded: 


ACM) 
3216 IF £=1 ees LPRINT "Month 1 


33@ LET EF =F +AVERAGE E10 
348 PRINT “Month ";A;"; project 


ed: aINT (&} 

S42 IF 2=131 THEN LPRINYTF "Month " 
3A“. Pragected: “; INF {tE} 

* 345 NEXT & 

3506 Beene 1ee@: PORE 23692 ,8 

355 RINT * INK 2&2; “--~-—---~--~-—-—-~ 


Be hee ea oo ey es 


356 IF 2=1 THEN LPRINT wo 


ores 


“360 PRINT ° INK 2; INVERSE 41; °E 
nmter BRIN choice:" 
$70 PRINT “TAB 3;"4 - To run pr 


SE@ PRINT TAB 3; "2 - To run thr 


Cugh output again, but 
without entering F 
igures again" 
3908 PRINT TAB 3; °3 - Te run the 
Progra from the b 
eginnin 
42a PRINT TAB 3; "4 - Te sare th 
is run cn tape” 
@S PRINT TAB 3; "8 - Te stap” 
4#1@ LET AS=INKEY 
420 IF Ag="" THEN GO TO 418 
430 Ag="1" THEN GO TQ 266 


488 GO Ta 36 
490 INPUT “Do you want hard cap 
y of output? 
2 Yes 
Na“‘i:z 


S@@ IF Z<i oR “Z>2 THEN GO Ta 492 
S18 RETURN 
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Part of one output: FINANCIAL MODEL 


Month 2 2345 

Month 2 1456 

Nonth 3 ise? 

Month 4 1678 

Month §& ivea 

Difference between months: 
Month i to Benth 2 - & 
Month 2 te manth 3 - ? 
Month 3 te manth «4 -—- F 
Month 4 to BORnth = - 6 
Average change is 6.38% 
Now a projection oF change: 
Month 2, recerded: i789 
Month . Pragjgected: i332 
Month , Pragected: 2442 
Month 4, Projected: Bide 
Month &S, prajected: 2504 
Month &, Prauvected: 2435 


24 - Te run Progectionm again 

2- Ta fun threvugh Gutpet 
BGain, Ut without 
eMteEring Figures 
a@Gair 

3 - Te TUN the Proarsea 


4 -—- To Save this run 
om tape 
3S - To stop 


Suggestions for further reading: 


Business Information Processing with BASIC Struble, George (Addison-Wesley 


Publishing Company, USA, 1980) 


BASIC Computer Programs for Business Sternberg, Charles D. (Hayden Book 


Company, Inc., US.“, 1981) 


BASIC Computer Programs in Science and Engineering Gilder, Jules H. (Hayden 


Book Company, Inc., USA, 1981) 


Some Common BASIC Programs Poole, Lou and Borchers, Mary (Osborne/ 


McGraw-Hill, USA, 1981) 
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Using the Spectrum in 
education 


This chapter is written for those who wish to use the Spectrum as 
anaid in teaching others, suchas parents helping their children, ora 
teacher using the computer in class. However, there is no reason 
why you cannot use the programs and ideas, if you wish, to help 
yourself with revision for exams, or just for a little brain-stretching 
exercise. It is quite interesting how much you can learn just by 
trying to write a program which will help others learn. At the very 
least, you may well pick up a smattering of French, Physics or 
whatever, while looking up information to store in a quiz program's 
DATA statements. 

Commercial, educational software for the Spectrum (or any 
other computer for that matter) tends to suffer from one of two 
faults. It is either so simple and general that it is of little use to 
anyone, or is so specialised that it is of use to only a very few. 
Creating your own learning tools with the computer overcomes 
both these faults. You can tailor the program exactly to your needs; 
teaching and testing just those parts of courses which appear to 
need particular attention. The routines and programs discussed in 
this chapter can easily be adapted for your specific needs. 

The chapter will concentrate on programs which give practice at 
basic skills — such as numeracy and (in the case of one program) 
knowledge of French. There are many other types of educational 
programs you could write which could teach new: material, or 
perhaps take the place of time-consuming laboratory work (such as 
a program which ‘combined chemicals’ in specified quantities, and 
showed the resultant mixtures). In most cases, you'll find that one 
or more of the programs given here will give you a starting point to 
produce the program you need. 

Educational programs — as you'll see a little later on — do not have 
to be dull. Some teaching programs can even be written quite 
explicitly as games. Educational games require the players to 
develop and apply their knowledge in order to compete with other 
Students. To work well, success should go to those who use their 
knowledge most effectively, and although random factors may 
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play some part, they should not determine the outcome of the 
game. 

Programs which teach new material can be very lengthy, as the 
programmer needs to anticipate all of the likely mistakes and 
misconceptions that may arise, and to provide correction 
sequences for them. The same material will need to be presented 
in a number of different ways so that a child who does not 
understand the first explanation may succeed when the 
information is presented in a different way. 

This sounds extremely demanding, almost impossible, and a 
good ‘half-way house’ to this sort of program is one which is 
written with the knowledge that the student has a particular text 
book with him or her as the program proceeds. Then the program 
can be used more as an intelligent guide to the book, than as a 
‘stand alone teacher’. The program could, for example, say: “Now 
that you've shown that you understand that Lamaism’s beliefs and 
worship derive from the Mahayana form of Buddhism, I'd like you 
to turn to page 26 of the textbook, and read how it was introduced 
into Tibet. When you've done that, come back to the computer and 
I'll ask you some questions about it”. On return, the questions 
could check the material on page 26, and — if some lack of 
understanding was shown — direct the student to a specific 
position on that page, or to another reference to the topic 
somewhere else in the book. Using a program in this way ensures 
that a programmer's time is not tied up creating endless PRINT 
statements to cover every possibility, and means your Spectrum 
can be used to help teach subjects which might otherwise seem 
far too complex to allow for a computer approach. 

Projects are a regular feature of primary school work, but 
students often have problems locating suitable information. The 
Spectrum can be used to store the information itself — which can 
be accessed using a menu approach like Prestel — or it can be used 
to help with the location of a suitable source of information. Apart 
from the immediate benefits of this to students, it may well help 
them become aware of the increasing importance of information 
technology in modern society. 

If a school, or for that matter your home, does not have access to 
Prestel, a Prestel simulation with a limited number of choices can 
be written which will help students become familiar with the 
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techniques of using a menu-based process to locate information 
stored in a cross-referenced ‘tree structure’. 

Simulations of other types allow you to carry out investigations 
which cannot be performed in real life. The Spectrum can use a 
mathematical model to predict the outcome of making changes to 
a system. You might wish, for example, to find out how pollution 
levels will affect fish, insect and plant life in a pond. A simulation in 
economics will allow you to alter the money supply, and see how 
this affects employment levels. A chemistry simulation might 
allow you to change the catalyst, temperature and pressure to 
optimise the yield of, say, sulphur dioxide in a sulphuric acid 
manufacturing plant. Of course, a simulation can only be totally 
realistic when the mathematical model is an accurate 
representation of the system. Even when it is not totally accurate, 
so long as students are informed of simplifications in the 
simulation, it can be still most instructive. 

At the end of this chapter, I'll discuss some specific approaches 
to educational software which have proved successful for others, 
along with an idea of the kind of things which can easily be 
transformed into educational programs. However, first I'd like to 
discuss specific programs (some written by Jeff Warren, and 
others by myself) which will show different approaches to the 
production of educational software. Even if these programs are not 
of immediate use to you in this form, they should give you models 
to work from to produce your own programs. 

Many educational programs use the RND function to set sums or 
to select questions at random, so that the learner does not become 
bored by a predictable sequence of questions. Our first program 
randomly generates simple division sums, but it can easily be 
altered to give practice in any basic mathematical skill. 

Line 5 makes the user-defined graphics symbol D into an 
ordinary division sign as used in school work. Next the initial score, 
S, is made equal to zero. The program sets 20 questions using a 
FOR/NEXT loop with qas the question number (lines 20 — 120). The 
questions take the form “What is 32 divided by 4?”, which the 
Spectrum sets up as x/y. Line 30 gives a value of y between 2 and 
12, and line 40 produces a value of x which will give a whole 
number between 1 and 12 as the final answer. Line 50 displays the 
question and accepts the answer using INPUT a. Line 6@ chooses 
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between the correction sequence of lines 70 and 89, or the praise 
given by line 9@, which also updates the score. Remember, you 
have to press both the CAPS SHIFT and the 9 key at the same time 
to obtain the graphics cursor, G, before typing the D in line 80. The 
D will change into + when you run the program. 

Line 100 enables the user to continue to the next problem when 
he or she is ready for it. How quickly a student can take in the 
information on the screen varies considerably, so that a fixed delay 
is not a good idea. PAUSE could be used instead, but you would 
have to set a long enough time, or the message might disappear 
before it had been read, and once gone, the student could never 
get it back. Never force the user to wait for the next part of the 
program by using FOR/NEXT loops to create inflexible delays, as 
this can be very frustrating. Note that line 100 allows you to stop 
the program prematurely by keying in “s” before pressing ENTER. 
The last line of the program prints the final score. 


DIVISION TEST 
use “a8 sp la? Bet: AERETA of fe 6 
“d'"tF.a: ¥: 2 s 
2S4,8,16,28,8 aa 
1@ LET 3-4 
2@ FOR q=1 To 2a 
3@ LET Yus2+INT (RND#113 
$0 LET xk=U SINT (RND #12411 


: Came NPL 
608 IF 3a=x-u THEN GO TO 93e@ 
7B PRINT PAPER 6; °° "Mrang. The 
answer is not “ 5a 
BO PRINT *°x." DP “Sys” = 
PRINT PAPER 6: Me ehemner tha 
“segs # “pees * SB Nek I Go 


ai 
9Q@ PRINT °’"“Goaod, “;a;" 38S car 


q 
130 PRINT AT @,4,;, “You scored “; 
s;“ out of 2a” 


Make sure that you limit the difficulty of your questions to the 
capabilities of the student. Do not allow the Spectrum to produce 
questions like “What is 19 divided by 7?” if the student knows 
nothing of remainders and decimals. 
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You can make your program more responsive to the user by 
using the score to control the difficulty of the questions. One way 
of achieving this in the division program is to rewrite line 30 as: 


30 LET y = 2+ INT (RND*(3 + (s>=5)*4 + (s>=10)*4)) 


Until the score of correct answers reaches five, y will be set in 
the range 2 to 4, because the logical expressions (s>=5) and 
(s>=10) will both equal zero, as both expressions are false. When 
the score is five or more, the expression (s>=5) becomes true and 
takes the value 1, and y will be given a value between 2 and 8. 
Finally, when the score reaches ten, y will be given a maximum 
value of 12. Similarly you can change line 49 to: 


40 LET x = y* INT (RND*(5 + (s>=5)*7) + 1) 


The advantage of this type of program control is that the 
transition to harder problems is smooth, and the exercise will be 
both easier and more pleasant for the user. 

Although the program has been written for division sums, it is an 
easy matter to change it to other types of calculation. We can 
change the second part of line 50 to: 


“What is 1/";y;" of “;x;"?" 


This now gives questions of the type “What is % of 32?” for 
practice with fractions. You will need to change line 8@ to match 
the new question format. Try writing versions of the program to 
cover addition, subtraction (remember to make the first number 
larger than the second, unless the student knows about negative 
numbers) and multiplication. 

Many programmers like to make their software more personal 
by having the computer respond to the user by name. The idea is 
that it makes the machine appear more human. If you wish to do 
this, you will need to write a subroutine which can converse in the 
following manner: 


Spectrum: “Hello. What is your name?” 
Student: “Samantha” 
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Spectrum: “Well Samantha, | hope that you are ready to 
answer some questions about the anatomy of the rat.” 


This can be carried further by having a list of ‘praise phrases’, one 
of which is selected at random for each correct answer: 


“That's right Samantha, tibia was correct.” 
or 


“Well done Samantha, femur was correct.” 


This type of approach gives a lot of satisfaction to some children, 
especially those who enjoy the talking computers and robots of 
science fiction. 

The Spectrum can also use childrens’ competitive instincts by 
maintaining a best score record, together with a fastest time, if you 
make use of the system variable FRAMES to time how long it takes 
to answer a question. This works well if you have a student trying 
to better his or her own previous performance, but can be 
discouraging for the slower children in a group, so you should give 
careful thought to its use. 

The next program, ARITHMETIC QUIZ, shows the student's 
name being used by the computer, and — in general —has a far more 
friendly approach than that used in the DIVISION program. As well, 
it allows the student to choose which type of question (addition, 
subtraction, multiplication or division) will be generated. 


i1@ REM ARITHMETIC OuUtz 

SO PRINT ‘"""“Heltio. there." 
We‘re going to try 2 fee sums. 

48 PAUSE 26e 


CLs 
G6@ PRINT “°° “Now, Bhat 25 your 
70 INPUT AS 
6a CLs 
98 PRINT ‘“‘’"Piseased to #8et 


Bus “>; FLASH 12; BRIGHT 13; INK 1; 


$ 
408 PRINT ‘‘‘"Press anu Key the 
Ld you’re ready"; TAB 6; “to start. 


41@ PAUSE @: LET SCORE=9 
220 CLS 
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33@ PRINT ‘“"“Now, “;REs“. FT can 
Give yous" “questions on: 

24@ PRINT °“" 2 - SBdditian;* 

35@ PRINT °" 2 ~—- subtraction,” 

168 PRINT °“" 3S - multiplication 
¥ or" 

A7@G@ PRINT °" & - divisid 


cof 
® “> FLASMH 3; "3 to &** Sea 8; 
TG tetlt me Which type oF vas’ 
YoU want to try.” 
439@ INPUT 64: LET B=VAL B¢ 
2PEe@Q IF B8<2 OR B34 THEN GO TO i¢ 


205 CLS 

@ig PRINY «*" ORF, Pe ener e-il 

try Some“ “SsusS bsing ei 

RP2Oe FRINT INK 2; FLASH a; {“addi 

tian” AND B=2)} + ("“subtractian” AR 

a Cress ee eka cats one AND & 

Ve ("Givwision” NO 6-4 

#23@ PAUSE aae” 

24@ CLS 

250Q PRINT “‘‘"“Enter 2 aif you we 

nt easy suss’’ “or 5 if you want 
grkyu "di rk Fa curt onmes.' 7S vs 


Fs e 
ae Can enter 2: 3 or 4 if ou’ * 


2G@ INPUT CS: LET C=UAL cs 
27@ IF Cil OR C>5 THEN GO Ta 2¢ 


Q 
275 CLS 


260 LET Of=("+" AND B23 4i"-" & 
aye ee AND Bos} +f" s = ‘AND E 


23@ FOR E=+1 TO 186 

3@@ LET A=INT (RAND (16403) +C 

S2Q LET B=XINT (RND#(184+4 402) +C 

B32Q@ LET Ge=ASTRS AFDS+STRE B 

S325 IF ABS CINT UAL G83 <>UARL GE 

FHEN GO FTO 328 

3308 PRINT “Now, “; AR", CHAS Lt 
“J TRB 6; “question number “; 

S348 PRINT “‘'"What is “; G85 "7?" 

358 FPARUSE Se 

use PRINT “‘""Try it now, and 

in“? “your answer.‘ 

SE Se INPUT F 

37S PRINT °° 

SBGQ FF F=URL as THEN BEEP .@8F 
+5CORE: BEEP ;RSTIFSSCOREI: PAI 
T FLASH i; INK "RNDS?; PRPER &; "EL: 
rae dene, "j;AR: LEY SCORE <SCoORE- 


84 Using the Spectrum in education 


29a IF F< >UAL CH. ie Agree “No 
I’m sorry, 3A; * *"-"the a 
nswer is up Gs 

4@@ PALISE 5a . 

418 PRINT ‘’’“Yaur scare is naw 


2 

FLASH @.," or "™ 

42@ IF E< ae tHen PRINT “7 -™"P res 
SB any key Fer the next question. 
"> PALISE @: CLS : NEXT E 

430 PALISE lan 

44@ CLS 

450 PRINT ‘“"“That brings us toa. 
the end of" ’ “that @Qpazt, “;~REe"." 
462 PRUSE ieee 

465 PRIN "ff vaur stare was “3 

INK 2; FLASH 3; 5COQRE; INK @; FL 
ASH @:" aout af ‘TE; TRE &; FLASH 
ae BRIGHT 4; INK BP: SCORES 1207E; ' 


#20 PRINT “‘“Would you tike ano 
ther round?" ‘Type in *Y" af you 
woul: or "““‘"press any key to e 


"fae INPUT Y 
4.28 ca Yse"y" OF Ye=o"Yy" THEN GO 


TO 1i1e6¢@ 
SO0@ FPRINF “‘*"It's been gead do 
ing sums wih’ "you, 2h 

S2@ PRINT °'° FLASH a; "See yeu 
again sametime" 

S3ea STOP 


As you'll see when you run it, colour and FLASH have been used 
to highlight certain things (such as the student's name the first 
time it is used). The conversation of this program proceeds as 
follows: 


“Hello, there. 

“We're going to try a few sums. 

“Now, what is your name? (Student enters his or her name) 
“Pleased to meet you (FLASH, BRIGHT, blue INK), Samantha 
“Press any key when you're ready to start.” 


PAUSE @ is used here (line 11) to hold the display until a key is 
pressed. The variable SCORE (which holds the score, naturally 
enough) is set to zero, and the screen clears (line 120). The 
computer takes up the conversation again: 
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“Now, Samantha, | can give you questions on: 
1 — addition; 

2 — subtraction; 

3 — multiplication; or 

4 — division. 


Enter anumber from (FLASH on) 1 to 4 (FLASH off) to tell me 
which type of sums you want to try.” 


The student enters a number which, as you can see from line 
190, is accepted as a string and then converted (using VAL) to a 
number. 

By the way, it is important to write programs so that incorrect 
input doesn’t cause a crash. This is not fully covered in the first 
program in this chapter, the division program, where the input of a 
letter instead of anumber could cause the program to stop with an 
error message, leaving the user wondering what to do. This 
problem can be overcome by treating every input as a string 
variable. 

You can use the CODE function to make sure that the input is 
numeric, if that is what you require. Then you can convert the string 
into a number using VAL. Try the following lines for a single-digit 
number. 


10 INPUT ns 
20 IF LENn$<>1 THEN PRINT “Single digit please.” : GO 
TO 10 


30 IF CODE n$<48 OR CODE n$>57 THEN PRINT 
“Numbers only please.” : GO TO 10 
40 LETn=VALnS: PRINT “At last.” 


Run it to see that you can only complete the program by entering 
a single-digit number. Numbers have character codes from 48 to 
57 inclusive. 

For multi-digit numbers you will have to separate the input into 
individual characters using string slicing techniques and check 
each character in turn. As an alternative you could use INKEYS =to 
get the number one digit at a time, with CODE INKEYS = 13 (which 
is the character code for ENTER) terminating the input. 
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Now, back to our ARITHMETIC QUIZ. The computer has asked 
the user to enter a number from one to four to select the type of 
questions which will be asked. The conversation continues: 


“OK, Samantha, we'll try some sums using subtraction (or 
whatever Samantha had chosen)”. 


Note how line 220 uses the Spectrum's way of evaluating the 
logical expression AND to choose one of the four words (addition, 
subtraction, multiplication or division) depending on the value 
which has been given to B. There is a PAUSE (line 230) and the 
screen clears. The talkative Spectrum continues: “Enter 1 if you 
want easy sums, or 5 if you want fairly difficult ones. (You can enter 
2, 3 or 4 if you want questions which are not too easy, and not too 
hard.)” This gives the user a measure of control over the program, 
and the interactive nature of the experience to this point should 
help the user feel he or she really is conversing with a ‘robot 
intelligence’ with a personality. The input is accepted as a string 
and converted to a number, and again the screen clears. Line 280 
makes use of the AND logic evaluation again to determine the 
arithmetic sign (+, —, * or /) which will be used in presenting 
questions to the user. 

Line 290 starts the loop of 10 questions which will be presented 
to the student, with lines 300 and 310 choosing numbers for the 
problem, with the size of the number being related to the ‘degree 
of difficulty’ (variable C) requested by the student back in line 260. 
Line 320 adds the numbers and the arithmetic sign chosen 
together into a single string. Line 325 checks the result of this 
problem, to ensure that the answer is not fractional (as it might be if 
the sum was a division), nor negative (as it could be in a subtraction 
problem). This validation line can be left out if answers which are 
not whole numbers, nor above zero, are acceptable. 

Line 33@ prints out the question, using the student’s name 
again: 


“Now, Samantha, this is question number 4 

“What is 7 + 3?" There is a slight PAUSE, line 350, then the 
Spectrum says: 

“Try it now, and type in your answer.” 
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Line 380 checks the answer, and, if it is correct, rewards the 
student with a couple of beeps, whose pitch is related to the 
number of correct answers which have been obtained so far in the 
current test. The words “Well done, Samantha” are printed on the 
screen, in a randomly selected flashing colour (using INK 9 to 
ensure that the words can be read), and the SCORE is incremented 
by one. If the answer given is wrong, line 398 prints up “No, I’m 
sorry, Samantha, but the answer is 10”. Notice that there are no 
flashing words, nor beeps for a wrong answer, so the correct 
answer includes a better ‘reward’ than an incorrect one. 

There is another short PAUSE, and the Spectrum prints up: 
“Your score is now (INK 1, FLASH) 1 (FLASH off, INK normal) out of 
3”. If the tenth question has not been asked, the Spectrum then 
says: “Press any key for the next question.” This waiting for a key 
press allows a student to proceed at the pace he or she feels most 
comfortable with. 

At the end of the tenth question, after a PAUSE, the screen 
clears: 


“That brings us to the end of that quiz, Samantha.” (PAUSE) 
“Your score was (INK 1, FLASH) 8 (INK normal, FLASH off) 
out of 10. (many effects) 80% 

“Would you like another round? Type in “Y” if you would, or 
press any key to end.” 


Although it can take quite a long time to write a conversational 
program like this, the increased interaction it creates with the 
student more than repays the time spent in creating the extra lines 
in the program. 

Line 48@ accepts the student's answer, and line 490 checks if it 
isa “Y” ora “y", thus sidestepping the problem of determining 
whether the computer has CAPS LOCK engaged or not. 

If the student says another test is required, the computer does 
not just RUN from the beginning, as this would wipe the student's 
name from the computer memory, and the whole “Now, what is 
your name?” sequence would have to be repeated, which would 
convincingly destroy the illusion of an intelligent, helpful robot. 
Instead, the computer goes to the point in the program (line 100) 
which follows the “What is your name?” routine. If the student has 
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not answered “Y” or “y” to the question regarding a further test, 
the computer prints up: “It’s been good doing sums with you, 
Samantha. (FLASH on) See you again sometime.” 

Although this explanation has been even longer than the 
program, | hope it shows just how effective even a simple program 
can be made with the use of ‘conversation’. Comparing the output 
of ARITHMETIC QUIZ with the DIVISION program shows how 
much more user friendly the second program is than the first. 

There are other ways to make programs user friendly, by giving 
more feedback than just “Well done” messages. Many children 
welcome the additional motivation provided by linking the ‘school’ 
exercise to some form of game or visually interesting reward. We 
are now going to extend the first program in this chapter in this 
way, making use of the Spectrum's user-defined colour graphics 
and the sound generator. 

At the top of the screen the program will show a river with an 
incomplete bridge, and a tank on the left bank. Each time a sumis 
correctly answered, the deck of the bridge is extended. If all twenty 
answers are correct, a success ‘tune’ is played, the tank crosses 
the completed bridge and fires its gun. 


First replace line 5 of the DIVISION program by: 
5 GOTO 150 


and add to the end of line 90: 
: GO SUB 250 


Change line 110 to read: 
110 PRINT AT 8,0; FOR n=1 to 11: PRINT bS: NEXT n 


Now add the following lines to your program. 
Additional lines for DIVISION: 


18@sTF s=3BG THEN PRUSE FS: Go Tr 


2E6 

265 STOP 

1450 FOR n=1 TO 4: READ ss 

162 FOR m#=08@ TO *: READ a: POKE 
VER SHtm,3a: NEXT & 

278 NEXT 7 


G 
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i160 DATA “a",.7,15,7,255,255,127 


? 
390 DATA “b",192,254,192,255,25 
5,255 254,108 
39@ SATA’ ”c”,255,8.8,8,38,8 
p2i® DATA “d".@,16,0,254,8,1687a, 


220 LET bS=" 


230 PRINT AT ‘3,0; "ABS: PRINT 
REER 8; PRINT AT 4.8)" & 
aE Gagne: PRINT AT! 4.2 


258 PRINT AT 4,375; OVER 4; "°f": 
RETURN 

260 FOR n=@ TO 18: FOR w=4 Te & 
STEP .S: BEEP @©.01,m3m:> NEXT wg»: 


NENT oA 
278 TOR: Dae TO 23: PRINT AT 3,5 
: RAB": use S: NE ft 


: XT 
‘ose ror’ Be TO 5@: PLOT 216,15@ 
: DRAW INK 2;36,8: PLOT azib. ise: 
PRAW INK 7;36,8: NEXT 

299 PRINT AT 3, je: wet done." 


Lines 150 to 170 set up four user-defined graphics symbols, 
using the data held in lines 180 to 210. The b$ defined by line 210 is 
used in line 11@ to clear part of the screen only, leaving the picture 
of the bridge and tank undisturbed. This picture is created by line 
230. You will have to obtain the graphics cursor before typing 
“AB", as this will be the tank. The same applies to the “C” in line 
250 and to the “AB” in line 270. 

Line 250 draws a new section of the bridge roadway after each 
correct answer. Line 260 plays the victory tune if all of the answers 
are correct, line 27@ drives the tank over the bridge and line 280 
fires its gun. 
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Here’s what it looks like in action: 


oad i i i i i 


Huesestion = 
What is 18 divided by SF 


1 


OOd. 2S correct. 


Press to continue. 


ad wiwwwehetdd 


Buestian ile 
What i165 LSB divided bu of 


Wrong. The answer is not & 


18a87-7 3 - 2 
tremember that @ x 2 = 15 1 


Press Le continue. 
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wetkl done. 


You can, of course, link the tank sequence to any educational 
program to provide additional motivation. However, if you use it too 
often, it may lose its appeal. Try making up sequences of your own, 
bearing the following points in mind. Ensure that the reward 
section does not interfere with the educational aspects of the 
program. If it takes longer than a second or so after each question, 
it will soon become tedious and annoying. The incentive should be 
positive, encouraging the child to pursue success rather than to 
avoid disaster. Do not penalise failure, because this makes some 
children feel anxious, which does not make for enjoyable learning. 

You can be fairly flexible in your approach to writing educational 
programs. There is no particular reason, for example, why the 
computer should a/ways be used to both generate problems, and 
check their answers. Our next program, EQUATIONS (which 
generates equations of the type ax + by = z), for example, only 
works outa problem, and prints it on the screen. When the student 
wants to see the answer, he or she simply presses any key (except 
BREAK) and the answer, along with the values substituted in the 
original equations, is given. You may well wish to enter this 
program into your Spectrum and, as an exercise, add a full 
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conversational framework, a score-keeping mechanism, and a 
means of accepting and evaluating the student's answers. 


1@ REM ESUATIONS 

2G INK 7: PAPER 3 

S@ BORDER 3: CLS . 
40 DEF FN MEN) SINT (RNDSN? +2 
S@ LET A=FN M1183 

6@ LET B=FN N18} 

7@ LET C=FN FB 

S@ LET D=FN M(1@3 

S@ LET M=FN M 

200 LET Y=FN M(18) 

22@ LET E=AeX+BeY¥ 

42@ LET F=CsX+DeyY 
430 PRINT ‘°° INK 6; "The equati 


440 PRINT ‘TAB 6; INVERSE 1:;4:;° 
Ce ee cG a ce 
“158 PRINT “TAB 8: ENVERSEE 2;63° 


y 
46@ PRINT ™¥Ou MuUSt Solve them 
For “; INVERSE 2; "x* be INVERSE @ 
,“ and “; INVERSE 2; “y" 
“a7e PRINT ‘“""Press any Key far 
the sotution”™ 
168 PAUSE 8 
29@ CLS 
200 PRINT “TAB SS: "xX # “3B; 


E 
_210_PRINT "TAB G:C; "xe + “ZDItY 
220 PRINT “TAB 4; "The value of 
23B@Q PRINT ‘TAB a: “The vatue of 


yo 2S “>; FLASH 1:¥ 
248 PRINT ae 2: oo re, ee ee 


8; EG wn = 
25@ PRINT “TAS Bl,O;, VS" SNS Oe OG 
Op “a's we" = 


- CS 

260 PRINT NB ress any ABU For 
3 new Probien" 

278 PAUSE ®@ 

2688 RUN 


Sample run: EQUATIONS 


The G€0Uations sre: 
Sx ¢+¢ ly = 


a 
(oO) 


7x +¢ 24 = 


i 


YoU MUST SOLVE them fOr kK and y 
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Press any key for the sotution 
Bx + ly = 13 
7x + Lu = 25 
The value of x is 3 
The value of y is 4 
B3¥3 + 144 = 13 
7*#3 + Le = 25 


Press any key for & new problem 


The equations are: 
8x + Sy = 126 
Q@x + GY = 1265 
You must solve them for x and ¥ 


Press any key for the setutican 
Sx + Sy = 128° 
ox + By = 126 
The value of x is 18 
The value af y is 6 
9218 + 5246 = ieee 
9210 + 626 = 126 


Press anu key for a new probter 


Our next program, CATS AND THINGS, is for very young 
children. It uses INKEY% throughout, and has rigorous input 
validation. A random number of tanks, lorries or cats are displayed 
on the screen, and the child has to type in the correct number. 

Note the difference between the use of INPUT and INKEYS. 
INPUT does give you the chance to correct mistakes. INKEY$ has 
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the advantage for single character inputs that you do not 
subsequently have to press ENTER. This makes the program 
quicker to use and gives it a more professional finish. 

The tanks, lorries or cats are printed with the user-defined 
graphics symbols A and B, the necessary data being held in lines 
510 to 530. The type of object is selected randomly in line 20, and 
the computed RESTORE sets the DATA pointer to the correct line. 
Lines 30 to 70 then assign the name of the object to n%, and set up 
the graphics symbols. 

Lines 80 to 140 choose the number of objects, print them at the 
screen positions specified by the data in line 600, and ask the child 
how many objects there are. Note that you must have the G cursor 
when you type AB in line 120. BEEP is used in conjunction with the 
visual display to direct the child's attention in the correction section 
(lines 180 to 230). Praise, accompanied by a rising sequence of 
notes, is given by lines 250 and 260. 

You may wish to improve this program by adding extra 
statements to keep the score and to print it at the end of a set of 10 
questions. You could also make the display more attractive by 
introducing a random INK colour into line 140. Avoid white cats ona 
white background, as children feel cheated when they forget to 
count them. Try increasing the range of objects — how about birds 
or spiders? Give your children some squared paper and get them to 
devise some of their own. Write additional DATA lines from 540, 
and increase the number in line 10 from 3 to your total number of 
different types of object. Another variation would be to have 
random positions for the objects, if you feel that the domino-type 
pattern encourages convergent thinking. 


CATS AND THINGS 


jer 
<> 


LET 
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90 RESTORE 608 

2399 FOR n=2 TO =z 

2309 READ N.Y 

220 PRINT ATF x,y) "RE" 

230 NEXT nM 

44@ PRINT AT 15,4, “How many “GA 
es are there?" 

150 6O SUB 4216 

160 IF CODE i¢<¢<46 OR CODE 2 $357 

THEN GO TG ido 

370 IF i $=STRE 2 THEN GO FO 256 

ivS REM SEWUENOE = 

16@ PRINT AT iS,@8,b3: RESTORE & 


190 FOR n=1 Ta z 

2@@ READ X.Y 

220 PRINT AT x.y-1; PRPER B;n 
220 BEEP 1,n 


260 PRINT AT 21,08; "Press ENTER" 
2982 GO SUB 418 
SOO IF CODE i$<>13 THEN GO TO Zz 


Sig CLs ;: Go Ta 18 
400 REM BBR Shee) d cee ; 
41@ IF INMKEY#<2"" THEN GO TO a3 


429 IF INKEY$="" THEN GO TQ 426 
4350 LET i §=INKEY S$ 
446 RETURN 


500 REN His Seto tat een Be Wa Neca 
Si@ DATA “tanks”. "a", ?F,15,7,255 
255,127,63.27, oR 21GD ,254,3195,2 

ss, 255,255,254, 186 

520 DATAR vecats” , 'a",.8,128, 147,86 

3,63,56,40,40,"b",28,238,252 <4, 

240 ,88,80,58 

5SSQ PATA lorries -'3a", &,8,8,25 

5,255,355 ,255,.45,°b",28,3008,308,.05 

3,255. 255,255, 12 

saa DATA 4, 5,10,5,4,11,18,11,7, 

$,4,18,16, 16, ,e24,38 ,o4 
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Sample run: CATS AND THINGS 


wali wae eu wad 


How many tLarries are there? 


Hom manu cats are there? 
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So far in this chapter we've been concentrating on numerical 
problems, which are the easiest ones to write for the Spectrum. 
But there is no reason to assume that ones requiring verbal 
answers need be much more difficult. 

The next program, FRENCH VOCABULARY, stores the 
questions and answers in DATA statements, and can easily be 
extended or adapted for any similar one word answer quiz 
programs. Notice in this program that the computer must have 
CAPS LOCK engaged, as the questions, and the answers the 
computer is checking, are all in capital letters. The program allows 
the student to choose the number of questions he or she wishes to 
try (line 80) and this number is used in the FOR/NEXT loop in line 
100. 

You may believe it is important in programs of this type to ensure 
that the same question is not asked more than once ina run. If you 
do, you may wish to use or adapt the mechanism given in this 
program which ensures the meaning of the same word is not 
asked for more than once in any run. Line 3@ dimensions an array 
and, as you know, sets every element of that array to zero. You can 
see in the DATA statements that the word in English is followed by 
the word in French, which is in turn followed by anumber, Whena 
pair of words is chosen (by randomly reading through the DATA 
statement, see lines 110 to 130), a value is also assigned to the 
variable X. Each pair of words has a unique number, and this 
element of the array is set to the value 1 in line 160. Line 150 
checks to see if this element is 1 before printing up the question, 
and if it is, RESTOREs, and then goes to choose another pair of 
words (and flag number}. Although this means it takes a little longer 
at the end of the quiz to find an unused pair of words-than it does at 
the beginning, you'll find the delay adds to, rather than detracts 
from, the program when it is running. 

You'll see that this program, like most of the earlier ones, 
responds to a correct answer with a greater flourish than it does to 
an answer which is wrong. Notice also that the program gives an 
immediate correction if the student is wrong. 


2@ REN FRENCH VOCRBULARY 

22 LET SCORE=@: PAPER 13: INK *¥ 
BORDER 1: CLS 

28 OF? Af2e 
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45 PRINT °’TAB &; “Welcome to Ff 
Bas French” 

5S@ PRINT TAB S:i"vocabulary tes 
a.” 


GO PRINT ’’ TRE G&G: “HO REaMY wOr 
aS wouta™ 

78 PRINT “ You Like to tru 
i323. te 2a: 

GG ANPLUY B 

QS FF B<2 “oR BsfA8 THEN GG TO 3 
222 FOR M=a=2 TR BR 

8348 FOR O=-1 FO INT (RND F201) +3 
328 REARO E@: READ FS: READ X 
238 NEXT DB 

340 AESTORE : CLS 

358 FF Rix} =2 THEN GO TS 12:23 
288 LET A(X =2 

2768 PRINT “°* INK RADE?» PAPER 
an Bue stIian HuRber “;C;° ye 


@ PRINT °°" "What as the Frenc 


Bee IF AS=FS THEN LET SCORE=SCC 
RPE+1: BEEP .21,2.5#SCORE: PRINT F 
each *| 1; INK 2; PAPER 5, °"7"°" Wes, 

“ZFS; ** a5 ¢carrect ™“ 

aia IF FS<sFS THEN PRINT *’"NO, 

im Sorry.” ' "Fhe Fr ench word ¢£ 
o "“;ES;TRE 6,"GS “ZFS 

220. IF C<B THEN PRINT ‘* INK 3S, 

FLASH 1) BRIGHT 2," Your score 
is Row “|; SCORE; " “ 

2308 PRUSE ise 
#240 NEXT & 

2S@ INK 2: PAPER F: FLASH 32: CL 


& : PRINT AT 6,3; "In that test y 
ou stored “; SCORE 


26@ PRUSE 208: FLSSH © 

272 RUN 

288 DATA "EVERYWHERE". “PARTOQUT” 
2i,"“SELDON" , “RAREMENT" .2,"“OQFTEN™ 

."SQUUENT™. 4 e NEVER", °"JANATS™’ 4. 
“sLuRyYSs"” 2 oeouens. : s 

2908 DATA “VERY", “TRES",.6,. "MORE" 

2“PLUS" ,7, “LESS”, ; “MOINS * 26,°YES" 

we our’ 3 o," No", “NON”, 48 

"386 CATA “THANK YOU". “MERCI “221 

2, “QNE”, “Un ,22, "THO", “DEUX, 13, 
THREE” | “TROIS".14, “FOUR | “ GUAT RE 


,i5 
31e DATA "“FIVE', "“CING”,26,"SIx" 
2"SIxX", 37, “SEUEN*, “SEPT”, 18, “EIG 
Ar’, “HUIT",13, "NINE", “NEUF” 720 
326 STOP 
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Sample run: FRENCH VOCABULARY 


Welcome ta this Frenth 
vocabulary test. 


Hoe manu wo 
YoU Like to tr 


Question number 1: 


What is the French for 
MORE? 

PLUS 

Yes. PLUS is correct 


Wour store is now 1 


Question Number 2: 


What is the Frenth for 
EVERYUHERE?T 
PARTUOT 


No, I‘m sorry. 
The French word for EVERYUHERE 
is PARTOUT 


Your score is now 1 
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Question number 3: 


What is the French for 
FIVE? 
CING 


wes. CIN@ is correct 
Your score i5s AoW 2 


You can use the next program, QUIZ-MASTER, for anything from 
weekly spelling lists to O-level Biology. The catch is that you have 
to provide the questions. This is easier than you might think, and 
hopefully students will do most of the work for you. 

The program is used to store a selection of questions or clues, 
together with the appropriate answers. Here are some examples 
to start you off: 


What is the French for “to give?” 
(answer: donner) 


Name the mineral mined at St. Austell. 
(answer: china-clay) 


Which sub-automic particle has 1 unit of mass and no 
charge? 
(answer: neutron) 


Which cell organelles contain the cytochromes? 
(answer: mitochondria) 


Short, simple clues should be sufficient for the weekly spelling 
test. If the list includes “knight”, a suitable clue would be “armed 
horseman”. Persuade your child to type in his or her own clues and 
words, and then try the test yourself to make sure that you agree 
on the spellings. 

The program first flashes the complete set of answers briefly 
onto the screen one at a time. It then presents the questions in 
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random order, but without any repeats. If you get one wrong, or 
simply press ENTER, you are given a hint, “k....t” for knight, or 
“d....r" fordonner. RUN 580 allows you to create a new set of 
questions and answers. 


QUIZ—-MASTER 
2 REM 
20 LET 


SQ FOr m=) TO m: LET utnmien: 


N=2x-2 
60 FOR n2=2z TO x: LET ytnisyine 
ss 5 


ae cLs > LER t= 
4060 PRINT AT 3,@;c$%q) : INPLIT i 


: 3 

Lio IF sate Tees TO tfqi3 THEN 
GG TO 2a&G 

2129 LET s=stt: GO TO 219 

1530 GO SUB 41@: CLS 

240 IF x30 THEN GO TO 68 


250 REN jae e 
169 PRINT AT 5,0, "Your score wa 
ar a oF “mm e2 


2", 8h,AT 9,0;,e4 


2FOQ PRINT AT F,@;, “The right ans 
wer was: "“, @S; AT 92,15; agtgQ) 

260 GG TO 1368 

SOO REM keith 
319 LEY t=21 
SEQ PRINT AT FT 
hi"; 8G: 8T Si,8; 
S3G@ PRINT AT & 
TO Lt{q} -DBi +aghiqg 
S409 GO TO 106 
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i PRINT aT Zi, Tee 
to conmtinuve.-* 

$420 GHG SUE 4609 

4509 IF CODE £#€=-15 THEN RETURN 
4409 66 eye area 


$7OQ IF INKEY gon" THEN 7 ra 478 


mF 


“How Manu Guestians + 


€im,G4) >: DIN aGtm, 15): 
DIM Lima: OTH uy tm) 
S30 FOR q=1i TO mp 


EsG CLS : PRINT BHvuestion 7a 
SSO PRINT “Type in the question 
or clue.': INPUT c#tq? 

S60 PRINT ‘c#(qi’°"Fupe in the 
answer. .‘“: ENPUT if 

S?7O PRINT ‘“is;AT 26,08, "IF satis 
Factory, type s;","’tea delete typ 


55@ GO SUB AES 

S90 IF k$="d" THEN GO TQ S48 
500 IF aAgGeco Ss" THEN GQ TO Saa 
6210 LET Liqi=LEn if: LEF a€{qis 


662 CLS : INPUT "hat is the Pr 
Ogram name?" , Ps 
&7O SAQUE pt LiNE 20 
To understand how this program works it is best to start where 
the questions and answers are fed in, from line 500 onwards. The 
total number of questions, m, obtained in line 510 is used to 
dimension four arrays in line 520. Array cS holds m questions, each 
up to 64 characters (two lines) long. Array a3 holds the m answers, 
each up to 15 characters long. If you want longer questions or 
answers, then change these DIM statements. Array 1 is used to 
hold the real lengths of the answers, as the answer strings are 
padded out with spaces when they are stored in the array. The 
answer length is used when the child's answer is compared with 
the correct one 
The answers are initially accepted using INPUT i%, so that their 
lengths can be determined before they are stored in array a3. 
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Lines 660 and 670 force you to save your program immediately. 
As you have stored all of your questions and answers in arrays, 
they will be cleared from memory if you use RUN. If you wish to re- 
run the program you must use GO TO 29, as this leaves your 
questions and answers intact. You might like to write a few lines at 
the end of the main program to give the choice of running the 
program again or not. 

Returning to the start of the program, lines 20 and 3@ initialise 
variables; s is the score, and x is the number of questions which 
have still to be asked; b% is used to provide the hyphens in the 
hints, and e is used to clear single lines on the screen. 

Line 40 flashes all of the answers onto the screen. This is a 
helpful memory-jogger for short sets of questions, but you should 
delete it when the number of questions is large. 

The array y (dimensioned in line 520) stores the question 
numbers in a way that prevents annoying repetitions when the 
program is run. Line 390 initialises the array so that y (1) = 1, y (2) = 
and so on. If there were only four questions in the test, then line 60 
will give z a value between 1 and 4. Suppose that z = 2; the 
question number q is made equal to y(2), which is 2. Line 70 
decreases x, the number of questions left. Line 80 eliminates 
question numbers which have been used: 


Before line 80 After line 80 
y(1) = 1 y(1) = 1 
y(2) =2 y(2) = 
y(3) =3 y(3) = 
y(4)=4 y(4) = 


You get two points if you answer the question correctly at the 
first attempt, and one point at the second attempt. Line 11@ uses 
the answer length I(q) in a string slicer to remove the spaces which 
pad out the answer word when it is stored in array aS. You have to 
remove these spaces because 


" 


“Constantinople” <> “Constantinople 


The answer length is again used in line 330 to slice the correct 
number of hyphens from b$ to make up the hint “C------------- 
You can use this program to reinforce your childrens’ school 
work in many subjects. If you feed French vocabulary, chemistry 
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definitions and questions from English literature into the Spectrum 
on a regular basis, you will soon establish a substantial bank of 
revision material (and will probably learn quite a bit yourself). The 
preliminary flash through the answers and the hint option make the 
responses come easily to mind when the program is run again at 
intervals throughout the year. This will give your child the 
confidence in the basic meanings of words and terms, without 
which further progress cannot be made in any subject. To enhance 
the program, you could use a further array to store explanations or 
additional information which can be called up or by-passed by the 
user at will. Another possible development would be to check 
wrong answers against a list of related terms, and to have the 
Spectrum give the correct meaning of the child’s answer. 

From that very general educational program, we move to a very 
different, quite specific one. This one, which | thought of while 
reading the book ‘The Standard Reading Tests’, (see ‘Suggestions 
for further reading’ at the end of this chapter), tests reading speed, 
and retention. The computer chooses from sentences stored in 
DATA statements from line 160, and prints them on the screen. 
They are held on the screen for a time related to the length of the 
phrase (see line 60) and then the screen is cleared, and the student 
is asked to enter the phrase he or she has just read into the 
computer. The phrase entered by the student is compared (except 
for its first letter, so the first letter can be upper or lower case) with 
the phrase (minus its first letter) generated by the computer. 

If the two are the same a “Well done” message appears on the 
screen, and in due course the screen clears and another phrase is 
chosen. If the student gets the phrase wrong, there is a short 
pause, and it is repeated. This occurs until the phrase is typed in 
correctly. 

You should alter the 2@ at the end of line 6@ to keep the phrase on 
the screen for as long as you think necessary for the reading ability 
of the child. The phrases used should, of course, also be altered to 
suit the age and ability of the child. If you like you can take the place 
of the computer, and get the child to repeat the phrase to you, 
rather than type it in, if this seems a better way of strengthening 
your child's reading ability. Incidentally, the book | mentioned will 
give you a rich store of phrases and words to use in reading test 
programs of your own. 


Using the Spectrum in education 105 


READING TEST 
2@ INK 1: PRPER 7: BORDER ?: C 
20 PAUSE SA: RESTORE 


3@ FOR J=41 TO INY_{RNDsi1)3+1 
40 BEEP iff, 34d: READ AS: NEXT 


J 

S@ PRINT AT i8 

6e BEuee (LEN ati f3e 

bo CHPUT INK 2; ‘Now enter the 


B we 

hrase eu", "have Just read 2-8: 
PES PRENT INVERSE 1;" "; BS; 

1@0@ PAUSE Se 

41@ IF Aste TO wees A TO } THEN 

BEEP ,.3,LEN R$: PR INK 3; 

FLASH 14; "Welt gone, that was co 


420 PRINT ‘°’“Soarry, that was nc 


1 INT ‘°""Here it is again” 
148 PRUSE 20@: CLS 


To Se 
160 BATA “Watch the deg run” 
i178 DATA “The cat has Four tegs 


18@ DATA “The egg is brawn” 

19@ DATA “The sun is hot” 

288 DATA "The Fox runs @quickiy” 
218 DATA “The duck Swims stowty 


2206 DATA "The casei has a hump" 
238 DATA “The betl is ringing” 
24@ DATA “The Fish is wet" 

2350 DATA “The book iS cpen”™ 
268 DATA “The bus is red“ 

Children enjoy using the next program, DOODLE-BUG, to 
produce sketches and doodles, but we will be creating maps and 
diagrams with it. You can draw straight lines horizontally, vertically 
or diagonally using the keys shown below: 

T Y U 
G—_——H ——> | 


rans 


B N M 
The ‘home’ key H at the centre has no effect. 
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DOODLE-BUG 


BORDER i 
Ze INPUT “Initiat x coordinate 


aa INPUT “Initial y caardinate 


£8 PLOT x.y 

7O@ LET c#=INKEYS 

Be LEFF nena fesa Tavs sg CoP" gt +E 
cx} ~ {cea Ut? ~teg="'g') —~t{c $=" b 
#2 3 

Be CEPT yous (COPae" thle Co PaeCa syst 
CRHe"RT Lema ae - Cesena} Ces’ we 
nm 

4@Q LET x=x- (x >P551 4x <@) 

L2OQ LET yay (921751 4+0u+@) 

320 IF c$="8" THEN STOF 

i3a co fa 42 


Type in the program and runit. Select your starting position using 
the pixel x and y coordinates as shown in the Spectrum manual 
(page 102 of the first edition). Line 70 checks to see which key you 
are pressing, and sets c% equal to this. Lines 80 and 90 change the 
x and y coordinates accordingly. If you press “m” then (c$ = “m”") 
is true, and so takes the value 1. The rest of the expressions in lines 
80 and 90 are not true, and so equal @. Thus x = x + 1,andy=y + 
1, and the next point will be plotted one position to the South-East 
of the first. Lines 100 and 110 prevent you from going outside the 
plotting area, which would result in a crash. Line 120 allows you to 
stop sketching by pressing the “s” key. 

You can save your works of art with SAVE “sketch” SCREENS. 
This gives your picture the name “sketch”, and stores it on tape. 
This simple sketch-pad program can be embellished in a variety of 
ways. You can rewrite line 120 as: 


120 IFcS$= “c” THEN GOTO 140 
“c" for change passes control to line 140. There you can write 
statements such as INPUT “Ink colour?”; ink. Write INK ink; into 
line 4@ after the PLOT statement, and you can now draw in colour. 
You can include similar statements so that your repertoire includes 
PAPER, OVER, FLASH, BRIGHT and INVERSE. The results which 
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you can obtain can be quite elaborate, as the following sample 
shows: 


Sample run DOODLE-BUG: 


er ee a 
Pe £ ae ae 
x ie 
i ne 
ae | x. 
v i ‘ 
: |__5 
. r ay 
\ . ; 


hat is the name of this town? 


oan 
Pa | so? 
¥ Dey 


Which oO ke iumbered states is 


on 
Byeenstlanad 
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The map of Australia was drawn using the original sketch-pad 
program, modified by inserting the following two lines: 


50 IF INKEYS <>"”" THEN GOTO 50 
60 IF INKEYS =“" THEN GO TO 60 


This slows the program down so that it plots only one point each 
time that you press a key. You need to find a map that is exactly the 
right size to fit the plotting area on your TV screen. Trace the map 
onto a sheet of transparent plastic, and tape this to your TV screen. 
Use the program to copy the map onto the screen. Leave some 
space on the screen for questions and answers. 

When your outline is complete, save it. You can add to your map 
using direct commands; CIRCLE 55, 50, 2 will produce a small 
circle for a town. To find the coordinates of places on the map, use 
the program again. Draw a line to the required spot, stop the 
program, and print the values of x and y in a corner of the screen. 
Restart the program using GO TO 4@ and repeat the process. 
Finally, reload a clean copy of the map, add your towns and cities, 
and save the finished version. 

You can apply the same technique to produce almost anything 
you like, from circuit diagrams in Physics to transverse sections of 
plant stems in Biology. 

The next task is to link your map or diagram to a question and 
answer program. If the QUIZ-MASTER program is used, it needs 
some modification. Replace line 40 with: 


40 LOAD “map” SCREENS 


You will also have to direct all PRINT statements to the bottom of 
the screen. The following sub-routine may help: 


350 REM CLEAR BOTTOM THREE LINES 
360 PRINT AT 19,0;e%;e3;e% 

370 PRINT AT 19,0; 

380 RETURN 


Now RUN 5090 and enter your questions and answers. When you 
have saved this on tape, BREAK, and reload your map. Save this 
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using SAVE “map” SCREENS onto the same tape immediately 
following the question and answer program. Now when you load 
QUIZ-MASTER, it will automatically load the map and go on to the 
questions. 

As you've seen, in this chapter we've developed a range of 
programs which students will probably enjoy using, and which can 
be written without too large an investment of time. The programs 
fall mainly into the category of drill and practice exercises. 

To learn effectively a student needs: plenty of practice; instant 
knowledge of whether his or her answers are right or wrong; the 
ability to set his or her own rate of progress; and most importantly, 
the satisfaction that comes from successful achievement. 

There are other possible educational programs — such as those 
which use multiple choice answers, and ones based on shapes, 
such as parts of geometry — which we have not discussed. 
However, the material we have presented should give you a good 
point from which to develop your own software. 

If you still feel short of ideas, you could send away for catalogues 
of educational software for any computer. Simply reading the 
catalogue should be enough to spark more ideas than you can 
possible realise (in fact, this is one way | get ideas for programs in 
general, by reading descriptions of what other people’s programs 
do when run). 

Now that we've come to the end of this chapter, you should 
possess a number of simple but effective educational programs. 
When you are extending your collection, either with your own or 
with commercially-produced software, look for the following 
points: 


@ You should not be forced to progress through several screen- 
fulls of preliminary description each time you run the program. 


@ The amount of material on the screen at any time should be 
minimised, so that attention is focussed on the important 
details. 


®@ Inthe presentation of text, different colours should be used with 
a purpose, as in the DIVISION program. 


® |t should not be possible to crash the program however you 
respond to the questions. 
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e |f your answer is wrong, the correct answer must be clearly 
displayed. 


@ You should be able to work through the program at your own 
speed, without information disappearing before you can read it, 
and without periods of enforced inactivity. 

In the final analysis, a good program is one which achieves its 

objectives, and which is a pleasure to use. 


Suggestions for further reading: 


The Computer Tutor Orwig, Gary W., and Hodges, William S. (Winthrop Publishers, 
Inc., USA, 1981) 


The Standard Reading Tests Daniels, J. C. and Diack, Hunter (Chatto Educational 
Ltd., 1958) 


Problems for Computer Solution Rogowski, Stephen J. (Creative Computing Press, 
USA, 1979) 


Microcomputers in the Classroom Maddison, Alan (Hodder and Stoughton, 
London, 1982) 


Understanding Calculator Math Oliva, Ralph A. (ed.) (Texas Instruments Inc., Dallas, 
Texas; distributed by Tandy/Radio Shack, 1978) 
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Playing games with your 
Spectrum 


No matter why you bought your Spectrum, it is likely that you'll 
spend some of the time with it playing games. It is also likely that 
you'll soon realise that one of the great thrills of owning a computer 
is devising your own programs — games or whatever — and making 
them work. 

In this chapter, I'll be looking at a number of games. All of them 
will be explained in detail, with the intention of passing on some 
hints on the writing of games which may well be of some help to 
you when it comes to creating your own programs. 

| can well understand that you may be tempted to simply enter 
the final version of the game, without reading through the material 
which precedes and follows the listings. If you do this, you'll 
certainly end up with a program which works, but you'll miss the 
main point of this chapter. Try to restrain yourself, and follow 
through the descriptions, line by line, and for those programs 
which are introduced gradually, entering each part of it when you 
come to it in the description. 

The first two programs, NIGHTFALL and JACK-MAN, are 
explained in much greater detail than are some of the others. 
These are the ones you should certainly read carefully, even if you 
decide to skip the explanations of the later ones. There are many 
ideas in the first two programs which | think it is very useful to 
know, not only for understanding those particular programs, but for 
applying to other programming problems. 


NIGHTFALL 
The first game involves flying an aeroplane over a city and 
attempting to reduce the skyscraper to dust. The plane flies across 
the screen getting lower as it comes to the end of a line. Eventually 
it crashes into a skyscraper, unless you have first destroyed the 
buildings. 

Our first need is to print up the skyscrapers. This can be done 
fairly easily by using a FOR/NEXT loop from 0 to 31 (the columns of 
the screen) with a ‘nested’ loop inside which prints blocks up the 


112 Playing games with your Spectrum 


screen for the skyscrapers. To make this clear try this program: 


i@ FOR a=@ TO 31 
20 FOR b=ii TO 21 
3@ PRINT AT boa: "Ee 
4@ NEXT b 

S@ NEXT a 


it will printa whole load of skyscrapers of equal length across the 
screen. Try altering the values of 'B’ in line 20 to vary the height of 
the skyscrapers. 

However, this routine does not produce a very interesting 
skyline; it looks more like a large shoe-box than a city. To give the 
skyscrapers varying heights we need a random factor. Try 
changing line 20 to: 


20 FOR B=INT (RND*22) TO 21 


The skyline will now look much more varied. The routine is now 
beginning to create something which looks more like a city. 
However it lacks uniformity. The first routine makes a city that is 
too uniform, the second a city which is too random. We need a 
guide-line around which a random-factor can work. Rather than let 
a random-factor rule us, we need to control it. To this end we can 
bring in a ‘difficulty factor’. 

In order to plot a convincing-looking city we need a rough height 
around which to build skyscrapers. Some will be slightly taller than 
the average height, some will be smaller, but none will be very 
much taller or smaller. In the last routine the average height was 
eleven characters high; but some buildings were 21 characters 
high, while others were only one high. A difficult game would be 
where the average height was about 18, since your plane would 
soon crash into the building. An easier game would be where the 
average height was, say, five. Your plane would take quite a long 
time to get to that level and crash into a building. Obviously, on the 
easy game it would be stupid to have an average height of five and 
find that one or two buildings were 20 characters high, because the 
game would no longer be easy. 

At the beginning of the game we want to ask the user for a 
degree of difficulty (for example, in the range of one to nine). With 
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this, we could build skyscrapers at a rough height guided by the 
difficulty chosen. Try the following routine: 


2@ INPUT “difficulty (1-9)",d 
R d>a THEN GQ TQ 18 


moa 


#0) TO 21 


Type in anumber from one to nine and the Spectrum will print up 
a fairly realistic skyline. Try putting in alow number and you will find 
that the city is low accordingly. What happens when you enter a 
number which is outside the range required? Why? Any program 
you write should contain a routine to reject invalid input. 

People often make a mistake when entering information via the 
keyboard, and if unchecked, the error can stop the program 
completely, or — if it continues to run — can confuse you with the 
results it generates. A single line which checks the range of the 
number entered can save problems. 

If you understand how the program works so far, we are ready to 
go on to the next stage: that of producing a moving aeroplane to fly 
across the city. 

First of all we need to choose what our plane looks like. 
Searching around the keyboard | can’t find any symbol which looks 
even vaguely like an aircraft of any sort. It looks as though we are 
going to have to employ user-defined graphics. Here’s a step by 
Step way of doing it: 


1] Draw a grid of eight-by-eight squares 


2] Fill in squares until you have something which resembles an 
aircraft from the side. Even if it seems a bit square don’t worry, 
as it will probably look all right on the screen. 


Here's the one | used: 
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Now go across each row and write down a zero if a square is not 
filled in, and a one if it is. For the above character you would get 


eeeeeooeo 8 
eeo---s8 
-oesor---ese 9s 
o-oo -- seo s 
seor-r--seoc 8 
eoeo--seos 
eeo--seos 
eeo-o eo 8 


Each row of zeros and/or ones is called a binary number. 
3] Using your Spectrum, go to each row in turn and type: 

PRINT BIN (the series of zeros and ones) 
and write down the ordinary number it prints up, alongside the 
binary number you have just typed in. For example, for the third 
row you would type: 


PRINT BIN 01100000 


and the computer would display the number 96. You write this 
down beside the number on the piece of paper, as follows: 


01100000 96 
Do not ignore any trailing zeros as: 


021100090 0=96 
but 
011000=24 
You should now have eight numbers. If you used the above 


example you will have the numbers @, 8, 96, 126, 127, 8, 16 and 32 
in that order. 
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Clear your Spectrum (by using NEW) and type: 


23@ DATA [your @ight Humbers] 
2@ FOR a=@ TO F 
SQ READ b: PORE USR “a +a,b 


40 NEXT 3 


The DATA statement should contain your eight numbers 
separated by commas. Run this and nothing seems to happen. 
However, now get into graphics mode and type the letter ‘a’, and 
there is your tiny aircraft. You can now NEW the program if you 
wish and the plane will still be inside the computer ready for use, in 
fact the only way to get rid of it is to pull out the plug or define anew 
character over it. As well as graphic ‘a’ you can get the plane by 
using ‘CHR$S 144’. The above method can be used for any 
character you want to design of your own. 

Armed with the aeroplane character we can now goon to make it 
move across the city and get lower. Type in the last ‘city-maker’ 
routine and add the following lines (in line 20, CHRS 144 represents 
your graphics-aeroplane): 


LET u=@ 

LET p= 

PRINT AT u,.P;s CHRS 144 

LET p=pti 

PRINT AT wl.e-asg*’ * 

IF epsS32 THEN LET p=8: LET ti 
: BEEP .41.,u 

Gao TO 1348 


i 


bo paps pe pope 
10+ WJ BID 
KAR HOBE 


You will be asked for a ‘difficulty’, and on entering it, you will see 
a city printed. Then, you will see a little plane ‘fly’ across the screen 
and get lower, ‘BEEPing’ as it goes (the ever-rising notes are 
designed to increase the tension). The plane will soon go through a 
building and carry on until it goes off the bottom of the screen and 
stops with an error message. 

What we want now is to have a line which checks where the 
plane is being printed, and if it finds this is a skyscraper, blows the 
plane up. For this we need two routines: one to check for a crash, 
and a routine to print an explosion. 
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First the crash-check routine — there are two ways of doing this: 


SCREENS: 
Replace line 60 with: 

60 PRINT AT b,a; INVERSE 1:"X” (capital X) 
and line 140 with: 

140 IF SCREENS (u,p)="X" THEN STOP 


SCREENS can read letters and therefore the program will stop 
when the plane hits an 'X’. This means that the skyscraper-printing 
routine will have to be altered so that INVERSE ‘X's are printed 
instead of graphic-blocks, which are not read by SCREENS. 


ATTR: 
To use the ATTR function, replace line 60 with: 

60 PRINT AT b,a; INK 5; PAPER @; “graphic-block” 
and replace line 140 with: 

140 IF ATTR (u,p)=5 THEN STOP 


This works by stopping the program whenever the plane comes 
to any character which is green on black and is not flashing and has 
no extra brightness. The disadvantage of this method is that it is a 
little complicated, and if, in other programs, there are many 
different characters whizzing all over the place, it gets a bit 
confusing trying to work out each character's paper colour and the 
like. 

If you wanted to stop the program when the plane hit a yellow, 
flashing blob you would change line 140 to: 


140 IF ATTR (u,p)=134 THEN STOP 
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128 if the character is flashing, @ if steady yes: 1x 128 = 128 


64 if the character is extra bright, @ if not no: @x64=0 
8 x the paper colour (black = @) 8x0=0 
1 x the ink colour (yellow = 6) 1x6=6 

TOTAL = 134 


Out of the two methods, the easiest to use here is SCREENS, in 
the form: 


PRINT AT b,a; INVERSE 1;”X” 
IF SCREENS (u,p)="X" THEN......... 


As there are only two things that the plane will come across, the 
air and the skyscraper, this function satisfies our requirements. 
Replace line 14@ with: 

140 IF SCREENS (u,p)="X" THEN STOP 
add line 142: 

142 PRINT AT u,p; CHR% 144 
and not forgetting line 60: 

60 PRINT AT b,a; INVERSE 1;"X" 


The program will now STOP when the plane hits a building. 


A STOP is a bit boring and unimaginative. What we need is an 
exciting explosion as the plane shatters. Try the following: 


2Q@ LET x=p#6: LET yv=(21-u) #8 

2@S FOR a=-1 TO 48 

2Oer PLOT x. 

210 DRAW INT (RNDs*#256) -~x,INT (RF 
NO#158)1 -y 

220 BEEP .1,2@6: BEEP .A1,.18 

SSG NEXT a 
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Pick a point on the screen and assign the co-ordinates to u and p, 
such as LET u=11: LET p=16. Enter these in directly. Now type: 
GO TO 2@0 and press ENTER. 

You should see the point on the screen ‘explode’, accompanied 
by suitable noises. All we have to do now is change line 140 to: 


140 IF SCREENS (u,p)=“X”" THEN GO TO 200 
RUN the whole program and you will get: 


a] a city plotted up on to the screen, 
b] a plane whizzing along getting lower and lower; and 
c] the plane hitting a building and exploding. 


Now, read through the program again. Make sure you 
understand how it works. Now, we're ready to add the final parts. 
These involve having a bomb which you can drop from the plane to 
destroy the skyscrapers and prolong your flight, and then dressing 
the program up to make it look more professional. 

Unfortunately, you are unlikely to completely finish this, or any 
game. No sooner have you SAVEd it and sat back admiring what 
you believe to be the definitive version, than someone will come 
along, play it, and give you a great idea on how to improve it. 

However, before worrying about any of that, we need to add the 
‘bomb’ bit of the program. For this, we need a ‘flag’. A flag is an 
‘indicator of the state something is in. It is usually given a value of 1 
for on, and @ for off. In this program the flag which we'll call ‘f’, will 
be equal to one when the bomb is in the air, and zero when it is not. 
At the beginning we need to assign it to zero as the bomb is not 
falling. This is how the program should look so far with ‘f’ being set 
equal to zero: 


ity (2-Si".a 
THEN Go TO Lo 
S@ LET d=12-d 


4@ FOR a=@ TO 32 
S@ FOR b=d+iINT (RND#¥d) TO 22 
&@ PRINT AT &.3a; INVERSE 2: °°X 


we 


3@ LET usa 
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4@@ LET p=e 

114@ LET f= 

44Q IF SCREENS (u,pi="x" THEN G 
Q TO 2e0 

242 PRINT AT ul Pp; CHRS 146 

160 LET p=pti 

479 FRINT AT u.p-as" " 

16@ IF p=32 THEN LET ps: LET vu 


2@Q LET xopxeG: LET v= (Sain-usi #8 
205 FOR 4a=1 TO 48 


oid 
DRAW INT (RND#256) -x, INT (R 
NesISer ou 
220 SEEP 1,20: BEEP .@1,106 
23a NEXT 2 


The bomb is ‘off’ (f = 0). What we need is a means of allowing 
the user to drop a bomb (make f = 1). One easy way would be to 
add a line like: 


148 IF INKEYS <>”” THEN LET f=1 


INKEYS holds the character of the key being pressed on the 
keyboard {it is ‘empty’ if no key is being pressed). The routine 
changes f to 1 when you press any key, when INKEYG is not equal 
to “". We could change the routine a little so the bomb is only 
dropped when the zero-key is pressed. To do this you would need: 


148 IF INKEYS ="0" THEN LET f=1 


However, it is easier to play (and remember) if you can press any 
key to drop the bomb, so we'll leave 148 to allow any key to be 
pressed. 

Next we need two variables representing the position of the 
bomb on the screen. When the bomb is ‘off’ it is inside the aircraft 
ready to be dropped: 


144 IF f=@ THEN LET a=u: LET t=p (‘a’ and ’t’ are the co- 
ordinates of the bomb) 


We next need a character which looks like a bomb. A full-stop is 
adequate, but you may prefer to define your own bomb. Using the 
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method outlined earlier, see if you can design a bomb-character. 
One bomb-shape is as follows: 


The line which defines the character should read: 
POKE USR “b”+a,b 

and not: 
POKE USR “a” +a,b 


as this will blot out the plane-character. 

To access this new bomb-character use graphic-b or CHRS 145. 
lf you prefer the simple life, you can use a full-stop as a bomb. In 
this case, use a full-stop wherever | have put ‘CHR$S 145’. 

With our bomb-shape (or full-stop) at the ready, we are now 
ready to actually print it. As the bomb is at exactly the same 
position as the plane when it is not falling (when f = 0), we do not 
want to print it up until it starts falling, or the bomb will blank out the 
plane. Line 158 will print the bomb: 


158 IF f=1 THEN PRINT AT a,t; CHRS 145: BEEP .01,60—a 


The bomb will now be printed up whenever you press a button. It 
will not fall however, until you add the following line 155, which 
blanks out the bomb and adds one onto the variable ‘a’ which in 
effect moves it down: 


155 IF f=1 THEN PRINT ATa,t;” “: LET a=a+1 
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Although we now have a falling bomb, it is not a very good one 
because it carries on down to the bottom and halts the program 
with an error-code. What is needed is a line which checks whether 
the bomb has hit a building (similar to line 140), or reached the 
bottom of the screen. 


157. IF SCREENS (a,t)="X" OR a=21 THEN GO TO 300 
Now we can write a ‘building-blowing-up’ routine at 300: 


300 FORa=aTO 21 

310 IF RND>.99 THEN GO TO 340 
315 BEEP .005,a—20 

320 PRINTATa,t;” ” 

330 NEXTa 

340 LET f=0: GO TO 140 


All we need now is: 
235 GOTO10 


and we have a continuous game. It is quite difficult to aim and drop 
the bomb on the buildings you want to destroy. 
Here is a complete listing of the game so far: 


1@ INPUT "“daFFficult (1-9) ",¢0 
2@ IF _di1 OR d>9 THEN Go To’1@e 
S@ LET d=12-d 

3S CLS 

4@ FOR az® To 31 

S@ FOR be=d+INT (RNDsd} 2i 
60 PRINT AT 5,a; TNOERSE- a, "xX" 


ET fre 
148 Pa SCREENS (uU,PI=2"XK" THEN G&G 


@ 
142 PRINT AT u.P:CHRS 144 
444 IF fs@ THEN LET a=u: LET t= 


p 
146 IF INKEYS$<2""" THEN LET F211 

155 IF fei THEN PRINT AT a.ts™ 
: LET asari 
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eee ie ra saree ta,ti=s"x" OR 32=2 


@ LE Pt+1 
27@ PRINT AT u,p-a;" 
18@ IF p=3e THEN LET eel: LET wu 
=U¢1: BEEP .1,u 


200 LET x=pxé8: oe y=i2i1-uwui ss 


T xX os 
DRAW IN (RND#256) -x,INT (rR 
-1,28: BEEP .@1.,.1@ 


310 IF RNDP>.993 THEN GO TO 346 
315 BEEP .@@5,a-20@ 
320 ea LE AT aeter = 
S3@ NEXT 
340 LET faa: GO Ta 148 
The game works, but it lacks several things. In its present form 
there is no colour, and no scoring facilities. Try and fit them into the 
program (you could use a variable ‘s’ and add one onto it every 
time a character of skyscraper is wiped out by a bomb — round 
about line 30@ or so). You will need to print the score at the end of 
the game. In the final version at the end of this section | have 
included a ‘highest score’ feature. This is fairly simple to add. Try 
adding little bits to the program to make it smarter. You could try 
defining your own skyscraper-character with windows rather than 
a boring INVERSE ‘Xx’. 
The ‘final’ version has DATA statements to define the user- 
defined graphic characters, so that it can be typed in and run as itis. 


‘Final’ colour version of NIGHTFALL: 


2 LET r=e 
4@ IF hH=8 THEN GO SUB 2eaeaeR 
S LET s=@ 
14@ PAPER @: INK &: BORDER 2 
3a a AT 2Sl,@;, "diFFicultyu { 
1 ta Te Ee 4%= INKEYS: IF LE 
N ees OR COPE dS$<edQ AR CODE dk 
>S7 THEN GO TO 3a 
3a La 
SS LET ds=12-VAL de 
4@ FOR a=8@ TOA 31 
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S@ FOR bedt+INT (RND#d) TO 21 
6@ PRINT PAPER ®@®, AT b,.a; CHR 1 


FQ NEXT b 

SQ NEXT 2a 

GQ LET us@ 

189@ LET p= 

11@ LET f-=8 

13@ PRINT AT 21,.@;CHRS 2a+CHRS 
Led$+" Press any Key ta bomb" 
244@ PRINT AT u.Pp>;: IF PEEK (PEE 
K 23684¢4+2E2S6#PEEK 2a688) -<25S5 THEN 
GO TA 2eae@ 

Alda PRINT INK 4; CHRS 4344 

ida@d@ IF f=0@ THEN LET azsu: LET t= 


ra) 

148 IF INKEYSio""' THEN LET FHl 
1SS5 IF Foi THEN FRINT AT a,ts" 
“aaa aszari: IF a=a2e THEN GO TO 
157? PRINT AT 38,t;: IF PEEK (PEE 
K B3684+256#PEEK 23685) =355 THEN 


A4S& IF Fei THEN PRINT INK 2; CHR 
& 1445: BEEP .@1,68-a 

16@ LET p=p+i1 

AF@ FPRINT AT wlPp-da: ae 

18@ IF p=te2 THEN tér P=@: LET uy 
saU+dt1: BEEP .dsu 

4185 IF us2e2 THEN GO Ta 1208 

19@ Go Ta i4@ea 

2OQ@Q LET x=p#3: LET yv=a=(21-u3 #6 
2OQS FOR a=1 TO s STEP 328 

2ear PLAT x.¥ 

2i@ ORAW IN® 6G, INT vANDse56! -x | 
INT (RND#15&) -y 

220@ BEEP .3,20@: BEEP .8@1,.10 

23a NEXT 32 

235 GO Ta 4+8e@ 

B@e@ FOR asa TQ 2 

Bi@ IF RND>.95 THEN GOA TA 34a 
3315 BEEP ,@aas, a-20 

S2QaQ PRINT AT a, to" 

SES LET s=8+4: IF S¥2S5@=INT (a7 
2590) THEN POKE 23624,PEEK 23624 + 


33Q NEXT a 
SB4@Q LET Foe: GA TQ 148 
4@@ IF His THEN LET he=s 


41@Q PRINT AT @,@; "scare: “ss."h 
i1-scare: are | 

42@ Ga To's 

1Q@@ DATA “a. @,.8,96,126,127,8.2 
5,.0."b".@.0,0,32,48,43,0,8,"c".2 
56,153,153, 855,258, 183/183 255 
10@5 FOR Fei TO 3 


124 Playing games with your Spectrum 


ia 
i2 
i2 
12 
12 
i2 
32 
12 
as 
12 


NIGHTFALL in progress: 


= 


Tn 
QO 
DB 
w 
ne 
ee 
“ 
nm 
wt 
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Hopefully the explanation of this game has given you a few ideas 
on how games can be developed. We'll be looking at several other 
games in the rest of this chapter, but not in quite as much detail as 
NIGHTFALL. 


JACK-MAN 

This program is based very loosely on DODGEM (with a hint of 
PAC-MAN), in which the player propels a little car around a maze, 
scoring points as it runs over dots within the maze, and trying to 
avoid running head-on into a car ‘driven’ by the computer. 

The scenario for JACK-MAN is less gruesome. JACK is a 
dastardly grape thief within an elaborately-designed French 
vineyard. The object of the game is guide Jack around the vineyard 
to eat as many grapes as possible. At the same time, he must elude 
the irate farmer. 

Here is a plan of the vineyard, complete with grapes: 


ALAR AR MRAM RA AR KK RARKARKARARRRRRME? 
RE SFSSSCFSESSPECESE. FSS SHE ESHEETS 
REXAKMMMRNAXKE MS TMK MMM RM ARARRK SES 
RSENS SSS FESS. SSFP SSS EEK SEN 
RAAT OOO UAC ACTATATA AS 
KRSKSNTESSE SCPE! SCH ESESESCEXK EK EX 
NEN EXENRRMRNXRAKN OOO NX RRAARK MEN SEN EM 


REX EKREXNSEKMAK KARMA RMKMRARNSEN SEK EX EK 
at fF A eA RXRNNARMRANXXXRXAXKRXMSO TTS 
mvt tf ft SRR MMM MMM IMR MMMM TT ee 
MoT Tf 8 8 RRR MRR RRRRMRMRMMMAB TTT 
me TT Ft oe RR RRR NRO tk 
SSNS LEN SEAM KKM K MRR RAKRARRASEKSEN EXER 
REX SK SENSE FEES CK ESSEC SSK EXEX EE 
MeN Oe MER REM MME CT CORK RKARKRKRMEN ER EX 
PRS SS HFseTssessrexrer 
OT LAX KKK RARK EX ER 
KKM EMM MIA TO OT KK RMR MMR RRM EM 
7 Ff FSFE FSESFESEEED. 


Ms 


€ 
ia 
* 


SKU ROA OUR OC OO RK RK 


Nearly a third of the final program is taken up by the routine that 
prints up the vineyard with its different-coloured walls and grapes 
{all the grapes are the same colour as are all the walls, but the 
grapes are coloured differently from the walls). It would be wise to 
SAVE the routine below, as it is so long, so that you can add to it 
later rather than have to re-type it if you lose it for some reason. 


126 Playing games with your Spectrum 


Note that the G's must be entered in the graphics mode. 


2 LET h=8 
S LET eg="dack" 


16 ee 6@,126,248,224,224,248 
12 DATA ,86,185,195,231,.255,21 
2g Bo eo asé, 15,7575 18,226,608 

id DATA 6@,126,255,231,1925,195 
:-66,.8,.6,8,8,8,58,68,5608,56@8 
is Sata’ Se. 126,255, 258,.255,255 

.126,68@.8,.6,38,6@8@,1226,68,24,8 

2a PATA 2a, "Eo ba. 2S85,.2£4,24,536. 
ige 

eS FOR ast Ta F 

Se FOR b=@ TA ?P 

48 READ c 

SQ FPOKE USR CHRS (14448) +b. C€ 

G@Q NEXT b 

7a NEXT 3 

FS LET sx@: LET v=3 

7? LET zed: LET y= PAPER 3S 
INVERSE 2 

FS LET Ft 

Fa CLs 

S@ PRINT INK Zp URRKMKKRAAXAAARM 
MRK MMM KEM RM KERR RK 

Q@ IF fei THEN RETURN 
ABA PRINT INK 7; "RX"; INK ys "GGG 
SG6GG oo ee saccéceeaas" ; InN 
Ea Sa ; 

118 IF Fei THEN GO TQ Be 
12a PRINT INK 23K" INK ws “G's 
INK Zl UXMMERMER RMR RG INK yuo"? ’ 

. TNK Za URXKNMXXRRARK'S INK YW 


. 
oS 
> 


OG) 


; » INK 2; °X" 
1S3Q IF fei THEN GO TO 1a 
1d¢d@ PRINT INK 2; °R"; INK yi 'G" 


abe 


WINK 25°"; INK Yi “GEGEEEGEEGG : 

“GGGGGGGGE6GG" ; INK 2; "X"> y 

3°G"S INK 2.5 oot 

* 358 IF F=2 THEN GO TO i222 

16@ PRINT INK 2, °X") INK ws "G5 

INK fi, "°R" > INK oy, nests > INK 2, °RM 
XMMMAMER'G  OINK ogg * = “; INK 2,3" 
KEXRXKKKRXK'G INK 9; "GG"; INK 25° 

> INK Wi; "G", INK 2; 4" 

A7@ IF *=1 THEN Ba TO 148 

18@ PRINT INK 2; "RK", INK vy, "“G"> 

INK zoUk'; INK 9; "GG"; INK 2; 0X" 
2 INK »; “eeaseec&é: *-* céaccecécs" 
¢ INK 2; °X'; INK ys "GG"; INK Zs °R 
“3 INK gi "G's INK 22°" 


f=. THEN GO TO 160 
55@ PRINT INK z;°X"; INK yi: "G's 
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INK 22 °X"5 INK wi "G'"; INK 25x" 
> INK 2. °G"s INK 22" MMMMRERK' GT OF 
NEO Ut zur Zp XRAMRRXX" | = 
NK og) UG") INK i's) OINK ye GES 
INK 2, R'G TINK ys eh; INK 23 XK 

B_@ IF fea THEN Ga Ta 168 

2BEQ PRINT INK zp UK" INK yy; "G"; 

INK 23 “set's INK ys 'G">) INK 2, °N" 
3 INK eee INK 23 °K" 3 INK yl SSG 
éaeeue? * “GEGGGGE" INK =, "XR"? 
NRO) "G's INK ZiUM™; TMH ve. UG": 
THK Fp eS INK ys "OG"; INK 2; °™x" 

SBae IF Fai THEN GO TR aa 

sda PRINT INK 2; "RK" >) INK 7 °6o"G 

INK 2; °R'"') INK 9; "GG"; INK” z3°xK" 
3 INK a. "O's INK 3st? INK ui'S 
“INK 25 MER EXR ERK OS a ee aa INK 

usvG": INK 2es"X"; INK yu; "GS"; IN 
a Pires INK ae ae INF 23 "RN'S 
N Goeth: rNK 25x" 

S@ IF f=1 THEN GO To 220 
6@ FOR asi TO 4 
aTea PRINT INK 23; "'*®"; INK ws tt? 7% 
% ">) INK FURR KK 
Qe eee PO TRE a 
NEXT a 
LET =i 


Go SUB 1e4e 
LET us282 
PAPER @: INK 6 
LET psi? 

LET dus@ 

LET tygsd 


WUUUMOII Ot Sa 


WUNEKORSOWHZ - 
HOsSnieINGeor - 


Having assigned starting values to the high score and the like 
(see the list of variables at the end) and printed up the vineyard, the 
program jumps to a routine which: 


[i] prints the ‘super grape’, a flashing grape which scores five points 
when eaten rather than the usual one point; once eaten by either 
the farmer or Jack, it moves to another part of the vineyard; 


[ii] plays a little tune. Many arcade games play a tune to start with 
and after playing the game a number of times, this tune gets on 
your nerves. If the music irritates you in this program, by all means 
leave it out. The Spectrum reads the notes for the music from the 
DATA statement at line 1050. 


As the program jumps to this routine whenever a ‘sheet’ is 
cleared, the high score changes when the score goes beyond it. 
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On returning from the subroutine most of the other variables 
used during the game are set to their starting values. 

The program then continues on to the main part of the program 
which sends the action to different subroutines when the player 
wants to move Jack, or when Jack hits a wall. 


The subroutines are as follows: 


a] Automatic Jack-moving Routine 

This changes the direction and the character of Jack when he hits a 
wall, that is, if he is moving east and he hits a wall, the program 
automatically changes his direction so that he is moving north, and 
changes the character used so that he is also ‘chomping’ 
northwards. The player has no control over this. Jack is always 
moving anti-clockwise. 


b] Manual Jack-moving Routine 

Each row of grapes is closed off by a wall and therefore Jack cannot 
move across the rows. However there are four gaps where Jack 
can move to new lines of grapes and/or avoid the oncoming farmer. 
This routine is utilized when [i] Jack is in a gap and [ii] when the 
player is pressing a key. The routine checks whether the player is 
trying to move Jack in a valid direction, and if so moves Jack, 
adjusts the relevant variables and sounds a note to help the user. If 
the user tries to move Jack illegally, a different note is sounded. 


c] Automatic Farmer-moving Routine 
This adjusts the farmer's direction when he hits a wall (see 
Automatic Jack-moving Routine). 


d] Manual Farmer-moving Routine 

This routine is called when [i] the farmer is in a gap and [ii] the 
farmer is not in the same line of grapes as Jack. Therefore the 
farmer is always on par for a collison with Jack. To start off with, 
however, he can only move across by one, but as Jack clears more 
and more sheets, the farmer's manoeuvrability increases and the 
game becomes more difficult. 


e] Sheet Clearing Routine 

This is used when Jack has eaten all the grapes, and sets up anew 
vineyard. It is not so much a subroutine as a series of commands 
which call up parts of other subroutines. 
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f] End of Game Routine 

This is called when the farmer ‘hits’ Jack It shrivels Jack up whilst 
playing suitable sound-effects and alters the high score, if the 
player has achieved one, asking for his or her name. It then sends 
the action back to the beginning (without resetting the high score 
variable). 


g] ‘Super-grape’ Routine 

This is called at the beginning of the program but is also called 
when Jack eats a super-grape. It blanks out the old ‘super-grape’ 
(by resetting IS) and then picks a point at random from the screen 
and checks whether it is a Suitable point to place a new ‘super- 
grape’. If it is not, then it goes back and picks another random point. 
A suitable point is defined as: 


i apoint which is not on a wall 

ii a point which is not in a gap 

ili a point which is on an ordinary grape 

iv a point which is on a place where Jack has eaten a grape 
when more than half the grapes have been eaten. 


The main program moves Jack and the farmer in their relevant 
directions and calls up any of the above routines when needed. The 
subroutines are situated as follows: 


a] Automatic Jack-moving Routine lines 1000 — 1015 
b] Manual Jack-moving Routine lines 565 — 700 
c] Automatic Farmer-moving Routine lines 1020 — 1030 
d] Manual Farmer-moving Routine lines 710 — 790 
e] End of Game Routine lines 800 — 900 
f] ‘Super-grape’ Routine lines 1150 — 1250 


| worked on each routine in turn, and then perfected the game as 
a whole. 

You might find it easier to enter the program if you ask a friend to 
read out the listing (especially the vineyard-printing routine at the 
beginning with all its INKs and PAPERs). 

When typing in the program, it is imperative that you use 
graphics G’s and not just ordinary G's, or the grapes will not be 
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printed up. You might like to try typing in the part of the program 
that defines the user-graphics first and then you will see a grape 
come up whenever you use graphics G. 


Final listing JACK-MAN 


2 LET bh=8 
T 


@ 
“12 DATA @,66, i395. 195,.2831,255.,2 


-66,0,4,9,08,08,68,60,68, 

: AS 26,255,255,255,255 
-126,608,8,6, 6G, 126. 6@,24,@ 

ZO DATA’ 24,60,24,255,84,54,36, 
a 


a= 7 
3 aa as Ta 


REA 
oo PONE USR CHRS (iddteatebs ct 
6@ NEXT b 


@®: LET w= 
4 LET y=@: FPRAPER 3: 


&@ PRINT INK Zz; XARA ARKAXKAKRM 
ae MX XARA NNN 
Be Fol THEN hot hirkal ren 


180 BRINT INK 2, "°X"; , GGG 
rag terial ees cbécecécacacs®; ; IN 

210 IF fi UOEN nie ,FrO_ 88 

128 PRINT INK ; INK 9; "GG"; 

INK Zi TKR RON EG » INK yi "7"? 
Sed INK Zi “NXNRNNAXNAN" | ; INK ¥ 

“G's; INK Zz 3x" 

430 IF fi THEN GO TO ae G 

iit PRINT THK a "x" INK i ae) 


INK aU" INK ; : “ebeaoecebes’ 
“BG scGbeGcGoG. | ; INK Zens INK Y 


“35@° IF f=2° THEN GG pCa 
: 


AX NK ; 
ANRXXXXXRXK'G INK YG ene INK z3 fe 
i: INK ; IN an 


: NK 
A7@ GF 4-2 THEN GO TO 140 
3S@ PRINT INK z3°X"; INK ys "GQ"; 
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INK za ‘ene ety Cale IN Fare it 
: INK : : *Gbooecces ' eae i peeagebcg™ 
a INK z: ex INK wa te, i INK 2; 
“7 INK ¥; "G'S INK mag 

330 IF f=2 THEN eo" TG _ 168 

2AQ PRINT INK 2, "°K": NK oy; "G"'> 

INK Zs "XX"; yo "Go" ZNK F5°N" 
> INK 9; “G"; INK Zit "MAMMKMMK' GS OT 
NR ys we eee Si 7 °MNNRXXMX'G TI 
NK US "G'“3 INK Zz; niet, INK yg. "Gr, 
™N < ‘2: gt . INK ye . "GS"; INK Zz; a Ba 

231@ IF fsa THEN Go To ise 

S20 PRINT INK Zz; xX" NK gs “G";: 

INK 2; '"'SM"; INK 9; "G"; INK so 

INK Ys UG" INK 2, "XxX" 5 INK yy "G 

GGGGGG**’ "GGGGGG INK 2, °R") 
NK uo “or NRK a Tra K y an ai; 
INK z oe ve INK U3 tte I K r; wag he 


i INK "ENG, ENK Zi axe INK a7ae:, 


“By INK Zz; oy : INK. WG Tgt ; IN 
"MG INK Ye “G's INK Zz; woh ae 8 
2°G"; INK eae 

F F=2 THEN GO FTO 229 


=3 TO 
NK oz; "se": EINK ite Boge 
1 ERS SE IOC 


bes 


an. 


BUUUMVUOUUMOMWMH ~~ 


oA gb 


oof un 


POWMPEOOM WIZ JH 
MAGE WG -WOBl- 


PAPER @: INK 6 
LET p=i? 
LET dus® 
LET jad 
4@ LET dp=2 
S45 LET if=d 
350 LET a=18 
3S LET 9$="* fou 
S36 LET t=3 
365 LET igs" "° 
370 LET da=-1 ; 
75 PRINT AT 9,9; PAPER @; INK 
43 ,ANVERSE 4;"°Score: “° 


t=9 
4ee@ IF INKEY & <o°" THEN BEEP .&3 
410 PRINT AT up; INK €,CHRS c 
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440 IF ere {uUtdu, Pprdpi=a'xK" 
THEN GO TG 186 

462 PRINT AT rae INK 3;95% 

47°0@ IF SCREEN (a¢da,t#edti=i"*" 
THEN GO TQ 1e2be 

490 LET O3S=SCREENS (Aatda,ttdt} 
435 IF ATTR tatrda,t+edt} >128 THE 
MM LET gq=*,** 

Sea IF geese THEN LET q=v 

Sie IF geo" ’™ AND ge@e>*.™“ THEN 
LET a$="G" 


S15 LET a=atda: LET t=tedt 

S27 IF a=ba AND tert THEN Ga Su 
B 12990 

S20 IF SCREENS (a,t3 =“'°" AND Ly 
Sar Soen GG SUB 7Fia 

S525 PRIN AT aw.t;s“H" 

Sra PRINT AT U.P; INK a4 

Ed@ LET veutdu: LET p=ap+ 

neat IF ATTR iu,P) s6 BREN Ea Ta 
545 iad m=@: LET tga aha ec Cu, 
Ba: iF igen THEN LET i= LE 
; M= 

S47 IF u=ba AND pert THEN GO Sti 
= 1253 

Soa FRINT AT ou, ps MF 

S85 IF m=1 THEN LET s=s+1: LET 
S3R=S2+4: BEER Delt anda BEEP Jae 
&,-5: PRINT AT 23, s 

Sey IF s2>s224 nen re TO iaiia 
S60 IF INKEYS=""*" QR tg g="." THEN 
SO TO 498 

S65 LET 1 S=INKE NS 

Sra CODE INKEYS<S3 OR CODE 7 
NNEYS:;S6 THEN GO TO 460 

SSO0Q RESTORE 5es5 


S85 DATA du,"tG', "FP. dp. VS", Va’ 
590 FOR i=-=1 TO im 

BOQ READ J: READ JS: READ KS 
61@ IF Jj=@ AND INKEYS$<>J& AND TF 
NKREY$<ok$ THEN GO TO 486 


i 
63@ LET visu: LET pa 
(648 LET ul=u+(tig= or) 
e" 


72 -fa$a"?"3 


Sidu=O} s2 

650 LET Biap+!et ti g=" Feta Po" S's 
655 LET nie igs="6") Hornet ea sere 
Fe") etdps-4) +t 28="S") x tdu=l) is= 
“By ¥ldu=-1)3 

S6@ IF n=8@ THEN LET n=-1 

S65 IF Litn=8@ OR Lutn=& THEN Ge 
TQ &ge 

67GQ LET ad Jtn 
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660 LET usuvad: LET p=p2 

630 PRINT AT up Ur" 

6a5 BEEP .01.,.16 

FEO GO TO 408 

Fi@ IF INT g=@ THEN RETURN 

FAS LET trol FetCh rect gi -Ch Feed 
Fee LET g=q-1 

FQ LET oF (ti stjret(da=-tI tet Fvt 


Jitf{da=1)} 

FdQ IF o=@ THEN LET o=-1s(dt =@) 
F4a5 LET o=o x2 

FSQ LET t=t+o0 

 *6@ LET ae (lroatjraetdtalire Cb ret i 


S LET trsatf 
@ IF o=@ THEN LET o=-1#(da=@) 
&S LET o=o #2 
® LET a=3+0 
RETURN 
B00 RESTORE 200 
S2e PRINT AT ULPS bs 
EXT a 
SSO FGR a=1 TO 64 
Boe Ria ges 225 


NEXT 
S72 PRINT AT 127,131, “GANE OVER® 
S75 IF his THEN INPUT “You have 


attained the hi-score: Please &¢ 
ype in. your name and press E 
NTER. “; e888: IF LEN @$311 THEN ,PR 
INT AT Uv,~aRP=— -S. "Toe Lo ONG.»aee nese’ ng 
SO TO see 

BEG IF his THEN LET h=s 

Ges IF Eee THEN Gt Ta 885 


890 GO Toa 
300 DATA WES 50,°E",20,%.",10," 


"1,8 
iboe IF dus@® THEN LET du=-dPp: LE 
T dp=s=@: LET c=c+i: GO TO 428 
4940 IF dp=® THEN LET dpedu: LET 
dusO@: LET cac4#i: IF c=id85 THEN 
LET clad 
1015 GOGO TO 4268 
AQ@=aOQ IF da=@ THEN LET da=dt: LET 
dt=0: GO TO $15 
ABS@ IF dts THEN LET dt=-da: LE 
Y da=8;: GO TO 515 
iB48 RESTORE 1850 
i942 LET s2=08 
1945 GO SUB 12008 
1ESO@ DATA 7,1,.7.,.5.7,.5,180,1,12, 
3,14,.5,12,1.5,18,1.5,12,,.5,7,1.: 
FeeB. FP, eB,18,1,138,1,7,.8 
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4A@Q55 PATA F.4.,.7,13,18.1.,12,1,14,-.- 

B.,12,.12.5,109,2,3282,13,7.3,7,13,5,.5. 
#,1.5,0,2 

4860 FOR a=1 Ta 2&6 

4070 REAL wt READ w 

i88@ BEEF x-18, 

240230 NEXT 3 

30895 IF Aes THEN LET h=s = 
Aa0O PRINT AT 11,8; PRPER 4; INE 
@itHi-suore: “shi AT 1S. 33 "by U 
2% 

11QS RETURN 

22410 LET veov4RNb> 

2320 GO TO FF 

2415@ FOR d=24 TO & STEP -1 

1155S BEEF .8i.,d 

2160 NEXT d 

1165 GEEP .2,236 

2170 LET s=s+5 

L1iS@ LET tgsa="," 

1288 LET rpe=INT tRND#20) +3 

2210 LET L=INT (RND#29) +1 

A220 LET bS=SCREENS {tba ria 

1230 IF o$=""" OR EB#="X" OR (be= 
“." AND 32:¢2232) GR (ba>+& AND be: 
13} THEN GO TO 1208 

2240 PRINT AT basrls; FLASH 1; IM 
XS; PRPER @. 'G" 

1|a45 IF s>+=1312 THEN LET sa2=sS4+i1 
12560 RETURN 


JACK-MAN in progress: 


a ROR RRR RRR RRR ARR KK RAK KKK RK KERR 
Be SESE ESSEC EEK 
Boy dd REE REREEN SE © °° OXMXMNRNERENEENGES 
X | XGROSSCCCCESS 68SEC CECEEN ER 
Re eee eee ex 
Ky KEXSCSCSCCECE”  * —” tee REKEX 
Ay RSME MRR MMM KO RMR RRR | Xx FX 
a KEN ESSC SEE! SERS ESEX Pe ee 
x ps ¥ KRM AMER NA RERMAMER | Mex ex 
x > MEBXXXXX TT Es x 
x . RAN M MEN RR EMH NIN SE ee ee 
x “"RHi-scare: GQRMMMR OTT as 
x “Mx bY Ua CKREXXXRNRK Ty 
NER EE EKKO EMR MRM RR MR EM EK EM OK 


XM eM EX Fes ECE 
MEX SRSM ARERR TTT 
KEXEX SESS CSE SSE” 
MEXR EXRM MK RK RRM 


KEXSCCESESSES EO: 


Seeéeesesese soc. 


SESE SEEN EXEX 
RXR RAKRKKS KER & 
FSF FSC SSFEX EX, . 


+ XXAXXAXKKAKKSEX 5» X 


ina viivec bnuievbvted Ot x 


aoe ro 


avian eC Tee re Te Tee ee 
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ee Sk Rk - : Ooi  X 
x KES CSE SES ESE SES EESSESESER 
XL XOMRMMARNR KK XK RXR KKK ER 


’ é ae eee ms ree rex 
Xp KEK, KEK KRM! ° ee X€#x 


KEK RESSSSSS J CRodvinvite tire REX» 
a 

roe 7x 

. « TON RICKI! "x 
tt: pe MOy eco re: FERRI TTT Tk 


. 


fees Mb TimboxXXXXxx TCX 
OE IOC BC KOCH KOCK ER EK ON 
eK) MSCS SEE SESS E EEX] KEK IX 
Nex, MMARRKKK TTT AXAAKAR X€X x 


EX y 4 a ho e MEX AN 
»xexD eM MXM ERE } oe * RXMRAK KER KEX ax 


RS SSE SCE EEE. 8 ESS SESHEFEETSEX . X 
AACA angina saad Bsa areal ae, 


se 
2 


x ‘ a * * ” a * ca AA o 


Variables used in ‘Jack-Man’ 


Dwaeorw N f€ HO DT ®D 


highest score so far 

name of person who attained the highest score so far 
control variable for various FOR/NEXT loops 
control variable for FOR/NEXT loop 

READs user-defined graphics data 

present score 

number of lines the farmer can jump per gap 

INK colour of the walls 

INK colour of the grapes 

flag for display routine 

y co-ordinate of Jack 

x co-ordinate of Jack 

direction down or up of Jack (can be —1, @or +1) 
the line of grapes Jack is in (1 —4) 

the direction left or right of Jack (see du) 

the line of grapes the farmer is in (see Ij) 

y co-ordinate of the farmer 
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g$ the character which blanks out the farmer 

t x co-ordinate of the farmer 

I$ the character which blanks out Jack 

da__ the direction up or down of the farmer (see du) 
dt _ thedirection left or right of the farmer (see dp) 


q _ thenumber of lines jumped by the farmer for this 
particular gap 


Cc character used to print Jack 

ba y co-ordinate of the ‘super-grape’ 

rl x co-ordinate of the ‘super-grape’ 

m flag for whether a grape has been eaten 

i control variable in FOR/NEXT loop 

| READs legal directions in ‘Manual Jack-moving Routine’ 
i$ 
kS 


ul \ temporary values of the co-ordinates of Jack while 
p1 f the Manual Jack-moving Routine’ is checking fora 
legal move 


alters the variable that stores the line that Jack is in 


READs legal character in ‘Manual Jack-moving Routine’ 


fe) direction the farmer needs to move in to be aligned with Jack 
b%- READs characters printed that shrivel up Jack when ‘eaten’ 

r READs pitch of notes played while Jack is shrivelled up 

s2 numberof grapes eaten so far on this particular sheet 

w_ READs pitch of notes which play the opening tune 

Xx READs duration of notes which play the opening tune 


i$ keypressed that triggers off the 
‘Manual Jack-moving Routine’ 


Variables that READ data are those situated within FOR/NEXT 
loops and are therefore constantly changing values. 


POETRY 
The first two games we've looked at in this chapter have been 
moving graphic games, in which player interaction consists of 
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making decisions regarding which keys to press to change the 
position of objects on the screen. 

‘Player interaction’ during the next game is zero, apart from 
sitting back and admiring the output of the program. The program is 
designed, firstly, to be entered just as it is, to see it in action. Then, 
the most enjoyable part begins, when you add your own words to 
the long vocabulary DATA statements between lines 200 and 320. 

Here are a few verses of poetry produced by the program in its 
listed form: 


THE CHILD pRavee SOFTLY 
IN THE FORES 
PLEADING FOR A NEED 
TO SHARE THE MOON... 
WATCHING THEN IN CRYING 
.. WATCHING, BLAMING. 


THE GIRL SANG SADLY 
IN THE EVENING, 
AISK =NG Soe RA WISH 


ATCHIN ING THEN TR LAUGH ING 
Ww 
ee WO “RING, GRASPING. 


THE MARTYR CRIED i ale 
IN THE FORECOU 
pay ine FOR A TOREH. 
STEAL 


PASSING NOW IN FADING 
«. GETTING, STARTING. 


THE MAN Ge ape SUTETLY 
IN THE DARK. 
LOOKING FOR. A WISH 
TO PUSH THE chi = 
GETTING AS_IN GIV 
«+ -SPERKING, TNOTHING . 


THE Baty otters SCREAMED GUIETLY 
THE DARK WOODS, 
STARING FOR_A GATE 
TQ FACE THE HATE. 
WOND RING AS IN GRASPING 
«+. TREMBLING, DARING. 


THE ECHO PRAYED FAINTLY 
IN THE FOREST. 
priate ym FOR_A PATH 
TO MOVE THE SUN... 
SHAK ING NOW IN GIVING 
«2 GETTING, GRASPING. 
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and here is the program listing: 


1@ REM Aoi Fy 

2@ DIM A¥i13,123: BIM B13) 
3@ RANDOMIZE : GO Tro oe 

4@ FOR M=1 TO 13 

S@ RESTORE 190234123 


6@ FOR G=1 TO RNDs187+1: READ & 


$: NEXT G: LET @giMi=Bs 
78 L BiM) =sLEN BS: NEXT M 


16@ PAUSE 2ae 
37@ INK RND#s6 
EXT H 


BCG DATA “HAN', "BOY", " ef 
irae ; te SHADOW cry , “FCHO", re or ae “A 


as Cc 
ST 


#218 DATR “SANG”, “WAITED " ."“SRID" 


; “SCREANER" . “CRIED" , WPLEADED Le 


RABYED", "STOOD", “FELL”, "STUMBLE 


on 


ey 


226 DATA “AnDty" ’ “St ADL Y * ¢ a SL Ob 


iY", “FRINTLY”’, “MADLY, UHUHBLY” , 


LQueLy” ‘ “SOFTLY " . “QUITETLY" route 


LY ae 


K 

250 DATA eGo “| “DOOREAY' . “GATE 
WAY". “MORNIN ‘ EVE NING", “FORECO 
UAT” , SARCHUAY F ‘MBAR WeOoS", “CAN 


244 DATR “LODKING", “SERROHING" , 


“HOPING, “TOUCHING, “REBCHING", 


he 


STARRING" , “ASKING”, “PLESDING" . “i 


ITING”’, “éRY ING" 
25@ DATA CunY “PATH ,V STEP", 


"st 


TEN", “WISH , “NEED , “TORCH” , DaaAR 


*, “GATE, “DERATH" 


26Q DATR “RERCH", "TOUCH", “MQUE”’ 


, STEALS, “SHARE, STURN", “FID 
“FRCE" | “PLISH", “BLANE™ 
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278 DATA “NOON, “SER, "NIGHT" 
PRIN", “LOVE, “HOTE™ , “SlIN' , SPEAR” 
2 ae Joy 4 »"LIGHT ae "pay ® 

28e BATA “TAKING", “MATCHING, “P 
ASSING',. “BLAMING, “GETTING”, “SH 
KRING‘ ‘) TREMBL NG" aad RING TS 


298 DATA “HEART , “HOW! . UE “iD 
OWN , “THROUGH" . “FAR, SHEN”. Us 
T°, “AS! "Nan 

3@@8 DATA “NOTHING”. “GIVING” , “FR 
DING", “DARING, “STRAT ING” , “LAUGH 
ING", “ORY ING’, "BLAMING", "CARING" 


3ie@ DATA “TAKING”, “WATCHING”, “F 
ASSING", "BLAMING", “sETTING", “SHAR 
KRING" 7 TREMBL ING", “OND “ RING “ey 
ERACHING “, “SPEAR ING* 

S2@ DATR “NOTHING", "GIVING", “FR 

DING", “DARING”, “STBRTING" . “LAUGH 
tNG, “CRYING, “RL ANMING" . "CRRING" 

, "GRASPING" 

It is fairly easy to write poetry programs for a computer, if you 
follow a simple procedure. The trick is to write a verse of poetry of 
your own, work out what parts of speech are used in this, and then 
get the computer to randomly choose words of the correct type to 
fill designated spaces within the program. 

This particular program was written by first creating the 
following, not very brilliant, verse: 


THE EAGLE FLEW SWIFTLY 
IN THE CLOUDS, 
SEARCHING FOR A WAY 
TO TOUCH THE SKY... 
FLYING THEN IN CRYING 

. RUSHING, MOVING 


Next a number of lists of words was built up which would take 
the place of the words in italics. These words are in the DATA 
statements from line 200. 

Once this is done, the actual program construction is very 
simple. Line 20 dimensions two arrays, one to hold the word when 
it is selected, and one to hold the length of that word. Because 
there are thirteen words to be added to each verse, a loop of one to 
13 (line 4@) is used. The word RESTORE means the computer goes 
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back to the beginning of a set of DATA items before READing 
them. The Spectrum allows you to selectively RESTORE, that is to 
RESTORE from a specific line. Line 50 RESTOREs the whole of the 
line whose number is given by 190 + 10*M. This ensures that line 
69, which chooses one of the next ten words randomly, always 
starts its count at the beginning of the correct set of words. Line 
70 sets the element of the array B to the length of the word. 

Line 90, where the program proper starts, POKEs 23692 with 
zero. This ensures that the screen automatically scrolls when it is 
full, rather than stopping with the query ‘scroll?’. Line 100 controls 
the loop which counts the number of verses the computer writes. 
In its present form, the Spectrum will write ten verses, but there is 
no reason why you should not change it to as many or as few as you 
wish. 

We've already discussed the subroutine starting from line 490, 
which is called from line 110. This selects the words to be used in 
the verse, loads those words into elements of the array A$, and 
their lengths into the array B. 

Lines 120 to 150 print out the poem. We need the somewhat 
inelegant (TO B(1)) after each element of the string array is listed, to 
ensure that the trailing spaces (which always fill up a string array to 
its full length on the Spectrum) are not printed. Without this 
mechanism, the poems would look very strange indeed on the 
screen. 

There is a pause (of about four seconds) after each verse has 
been printed, the INK colour is changed randomly (line 170) and the 
computer goes back to print its next verse. 

As | said at the beginning of the discussion on this program, the 
enjoyable part of using it comes when you start substituting your 
own words for those in the DATA statements given. Once you've 
done this successfully, you may well want to write an entire poetry 
program from scratch, starting with a completely different ‘model’ 
poem. 


METEORS 

In this game you are a scout ship flying through space when you 
suddenly find yourself in a meteor storm. You have to dodge the 
meteors for as long as possible. Fortunately, there are a number of 
fuel dumps within the storm, and you can refuel your ship simply by 
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running into them (isn‘t modern technology wonderful). 

You'll recall that in the POETRY program (line 90) we POKEd 
23692 with zero to stop the Spectrum scrolling 22 lines, and then 
stopping to ask ‘scroll?’. We'll do the same in this program which 
essentially places you near the centre of the screen, and then 
scrolls the universe up around you. The neatest way to get the 
computer to scroll continuously is to print a NEWLINE character at 
the bottom of the screen, which then scrolls up to make room for 
this ‘new line’. The NEWLINE character is 13 (CHR$ 13). 

You use the graphics letters shown in the REM statements to 
represent the symbols. Although you will not see the symbols 
come up immediately, once lines 5 — 70 have been run, the graphic 
letters will have been converted to the user-graphics defined in 
that part of the program. Again, you may wish to try running these 
lines first, so that, for example, a meteor will appear every time you 
press graphic B. 

The fuel gauge is stored as a string, decreasing by one pixel’s 
breadth every time a key is pressed and the ship thrusts to the right 
{it automatically drifts to the left if you don’t touch a key). Hyper- 
spacing (which moves your ship to a random point across — for 
emergencies only as you may materialize onto a meteor) uses upa 
chunk of fuel. If you get low on fuel you can drift (which does not 
use up fuel), but beware, hanging on the left-hand side of the 
screen means that you lose points rather than gain them. You re- 
fuel by hitting a blue petrol pump (recognized by the fact that it is 
blue). You blow up if you run out of fuel, or hit a meteor. The 
explosion is generated the same way as in NIGHTFALL. The 
meteors get thicker every 500 points. As with NIGHTFALL, the 
bigger the score, the bigger the explosion. You hyper-space by 
pressing the space-key, any other key moves you to the right. 

You might like to improve the game by adding facilities for firing 
(perhaps at enemy ships also caught in the meteor-storm and 
appearing from time-to-time). 


Program listing: METEORS 
LET h=8 


Fug TF b> 
Aeon 
cr 
| 
+ 
v 
if 
} 
oi 


ET s=@ 
IF h>@ THEN GA TO sea 
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3Q@ DATA “a",255,66,66,36,24,24 

,24,8,"b",68,126,255 586" 365,4 
126,60 7 i ° Saas 
32° DATA "c".@,88,126.126,126,.1 

26,60,@."d" @.8.24,60,60,24,0,6 
33 BATA "mh" 115,6825a,742 742152. 


,-O3,01 
FOR a= =a ra. eS: READ 
FOR b=8 TO Ff: FORE 
LOLI +b, 
‘5 NEXT 6: NEXT 
@ BORDER @: PAPER @: INK 6: SC 


Innmines 
in If ifs Un Uys 
| 
TLIVTOOD 
m 
Zz 


E a 
LB@ IF SCREENS tu, 
SO TO z2eaa 
232 FRINT INK 4; AT aaa 
A135 PORE aSesc2,255 


AS? LET s=841: PRINT AT @.@5 8 
139 PRINT AT 8,18; "Fuet: ‘; INK 
tS lsexe25) +-14+6, TRB Sti ak 

ida FOR @=1 TO s-S5@OQsi:- PRINT I 
WR SS AT Bl. INT (RNP #322, CHRS (14 
S4+INT (RNDSS)3; NEMT a 

ddd IF RND>.2a5S THEN PRINT INK S&S 
LAT Bl. INT ¢(RND#3217 "gs" 

id2 IF INKEY4S<o"°" THEN LET sa=s 
3+2: IF sa >=#256 THEN LET stsst+#i1 
>: LET aga=agsta TO 1: LET s3a=146 
24a3 IF st=32 AND sa=zidS THEN GO 
Ta 26a 

Add LET aS ti) =<CHRS ss 

Adv IF 313325 THEN BEEP .@0F.5! 
15@ PRINT AT UP” 


41455 IF INKEYS="" '' THEN LET pH=IN 
T CRNOs3B2): IF LEN agsesed THEN GO 
, Le ae LET @$east2S TQ 3: LET & 
L=s t+. 

AGA PRINT AT 21,86; CHRS 13 

AP@Q@ LET eo =p-i(ps@i+(INNEy secret # 
Sex ip<3Bdh 
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* 
o-~ 
iss 
fe 

‘ote 


1°5 IF p=@ THEN LET s=3-2% 
>: BEEP .@2,5/2@ 
18@ GQ TQ 1358 


SOQ IF ATTRA (u,pisS THEN LET 34 
= “:; LEY sls4a6: P 
RINT AYP up; “se": FOR e=-stit TO 3a 
: BEEP ,@1,38: Pare 2: GO Ta i232 
2Q2 LET x =p LET ysiepi-ui #3 

2Q5 INK 3 


28ar FOR c=l TO svi 
21@ PLOT x.) 

SEQ LET a=INT (RNG 42562: LET b= 
INT (RNDs#1582 

23Q ORAL a-x. b-y 

235 IF RND>.8S THEN BEEP .81,29 
24Q NEXT c 

2SQ INK 6 

S60 BEEP 1,208 

265 IF his THEN LET h 
27Fr@Q PRINT oF Bl,as "sce 
hi-scare: " 

* 28@ PRINT At @, OO; "pres 


K 
290 IF INKEYS="" THEN GO TO 238 
Bae Go TO 1B 


Sample run: METEORS 


32 Fuel: ee ee 
ry 
e 
° il 
a") 
® 
B 
e 
a 
* 
@ 
¥ 3 & 
3 
al * 
s 
a 
* 
= 
& 
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412 fuel: Fs Ia 
= 
; a 
e 
e 
bd @ 
ai s 
= e ¥ 
- a 
a 
. 
* 
* 
= 
& 
= ani 


stare: 22a Ri-scace: Leg 
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FIELD OF SKULLS 

With a fearsome name like that, you could hardly hope this would 
be a pleasant game. It is simple to play, but almost impossible to 
win. 

You, a little man-like creature (see the end of line 140 in the 
listing), are being pursued by up to ten flashing skulls. They know 
where you are, and spend most of the game heading for you. 
However, the skulls are rather stupid, and can be killed if you can 
lure them into the coloured oblongs which litter the screen. The 
only way you can get them to do this is to get on the opposite side 
of the oblong to the skulls. As they pursue you, they will bump 
blindly into the oblongs (‘they only have eyes for you’) and vanish, 
with a jolly ‘bleep’. 

You move using the “5", "6", “7” and “8” keys, moving in the 
direction of the arrows above those keys. You cannot move 
through the coloured oblong patches, but contact with them does 
not hurt you. The only thing that can hurt you is a skull. The game 
ends when a skull gets you, or you manage to lure all of them into 
oblong death. 

You will recall the way graphics were defined in other games in 
this chapter. It can be a little wasteful to have a separate loop for 
every character you wish to define, and more than one can be 
defined within a single loop, although the process can become 
most complex. The loop from line 4@@ to 430 defines both the 
‘man’ and the skulls. The DATA statement (line 44Q) contains the 
graphics information for both characters, with the information for 
the man and the skulls interwoven. Graphics “A” becomes the 
man, “B” becomes the skulls, so you need to put a graphics “B” at 
the end of line 7@, and a graphics “A” at the end of 14@ and 2790. 


32@ REN FIELD OF SKULL 

29 GO SUB 31@: REN UARIABLES 
S@ FOR B=1 TO 18 

40 IF AtB,.1) =1 THEN GO SUE 229 
S@ PRINT AT Ccie,23 it ge 


?@ PRINT AT ALB. 2),.,R€B.3). INK 
B-e2; FLASH ee 

S6@ LET C(B,2)3} =f (B,.2)3: Ler Cts, 
SI =A (B.S 
LET N=N- ft INKEY 22.2 AND NSS 
3+ fINKEY $#="S" AND NCSL} 
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1898 ae cena *>M THEN LET f{(6,23 


=RC(B,2} 

110 LET Drese oon ea AND Med 

SG) - (INKEY §="7" ND M>G) 

ae at one ra) Hs THEN LET ACB, 23 
+2 

136 iF PCReeoe (M,N 2X" FHEN L. 

ET M=xX: LET 

148 PRINT ar =x, YO" AE zy; Ue 


i8@ IF ACB, 3} ¢N THEN IF Ais. 33 ¢ 
28 THEN LET ATE, S13 =Al1E, 33 +INF 6 
¥RND?} 

46@ LET X=M: LET Y=N 

37@ IF AIB.S}3N THEN IF AtB,.33 > 
S FHEN LET At, 3S) sR(6,353 -INT (4 
RND} 

i16@ NEXT 

198 IF SCORE £18 THEN GO TO 38 
280 PRINT AT 2,9; FLASH period 


2#1@ BEEP. .806,.60-i120eRND: GO TO 


218 

220 REM CHECK SKULLS 

230 IF SCREENS (A(S,2) ,R(E,.Si d= 
“xX THEN LET ACB, =: EOR Y=. 7 


INK 4; “SCORE > == SC 
‘sae IF AtB,2) 4 AND A(B,353=N TH 
EN PRINT AT'C(5,.2),A(B,335" ": & 


250 RETURN 
260 REM BBB END oF GANHE BEB 

278 PRINT AT ACB,2),R{8,G¥; FLA 
SH 2; SRIGHT 1; IX a; 

2G@' BEEP .91,RNDs20+490° 

2908 Got To 286 


318 REM =. ASSIGN VARIABLES Bi 
320 LET SCORE=@ 
23e@ DIM A Aa Ga: oo £ tI. 33 


34@ FOR G=1 T 

35@ LET RtG,1} =2 

366 LET A(B,2) =38@+INT iRNDs9o} 

3fe@ & A(B,33 =1@+INT (RNDs19) 

= L CiB,23 -Ai5,2}3: LEFT CisB, 
33 sRtS. 33 


NEXT & 
488 FOR U=@ TO 7 


RAD 6B 
s20 Pox USR “AV ¢,7: POKE usr 
“B" $s} 
4308 NEXT uJ 
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44@ DATA 26,60,28,126,73,98.,127 
, ize, 5 2 gers, 29, 35,346,568, 65,36 

450 M=INT TRNDSS) +9 

468 CET N=38-INT (RND S393 

470 LET X=M: LET Y=N 

4898 PRPER Y: BORDER +: CLS 

49@ INVERSE 2 

SQ@ FOR G=1 TO if 

Si@ PRINT INK G/’3; AT RND£iG+4,R 
ND #2644; "xXx" 

S202 NEXT G 

S30 INVERSE @ 

S408 RETURN 


Part of two runs of FIELD OF SKULLS: 
SCORE> 2. 


YOU HAVE GEATEN THE SKULLSEttil 
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BREAKOUT 
The aim of BREAKOUT is to knock out as many bricks at the top of 
the screen, using a bat at the bottom of the screen which you can 
move left and right to bounce a ball. If you miss the ball, the game 
ends. 

The game needs five parts: 


i print up the bricks to be destroyed 

ii move the bat when required 

iii bounce the ball when it hits the edge of the screen 
iv score points for knocking out bricks 

vend the game if the bat misses the ball 


Part one is easy and needs no explanation. Part two reads the key 
being pressed from the keyboard, and alters the variables of the bat 
location accordingly. It also checks to make sure the bat is not 
going off the edges of the screen. 

It does all this in one line using the Spectrum’s logic which 
dictates that if a statement is true it is given a value of one, and if 
false, zero, therefore: (INKEYS="5") is equal to one when the “5” 
key is pressed, zero when it is not. 

So, where ‘p’ is the x co-ordinate of the bat, we can use the 
following expression: 


LET p=p+((INKEYS$="8")*(p< 26)—(INKEYS="5")* 
{p> @))*2 


When INKEYS equals “5”, (INKEYS="8") equals zero so 
nothing is added on to ‘p’ (since p + @ x 1=p+@=p), butwhenp 
is bigger than zero (p is greater than @)=1, then 1 x 1 x 2 = 2 is 
taken away from p. If p is equal to zero, 1 x @ x 2 = 2is taken away 
from p. This is a very useful method of moving things from left to 
right. Just remember that an expression on its own inside a pair of 
brackets for example (a + b = c), is taken as being equal to one if it 
is true, and zero if false, so (6 + 6 = 12) equals one but (9 x 2 = 81) 
equals zero. 

Part three, which bounces the ball off a wall, just reverses the 
sign of the ‘direction’ variable of the ball. If the ball has plus one 
added to it to make it move (to the right) and hits a wall, the variable 
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is multiplied by minus one, and the ball will have minus one added 
to it (to move it left). Part three also ‘blips’ so that you can hear the 
ball has hit a wall. 

Part four uses the ATTR function to see when the ball 
demolishes a brick. Since all the bricks are yellow, a point is scored 
every time the ball comes across anything yellow. 

Part five uses SCREENS. The bat is made up of capital ‘X’s so 
that when the ball comes to tbe bottom of the screen, it checks 
whether it is on an ‘X’, and if not it ends the game. 

When the ball hits the bat, it bounces off at a random angle (but 
never straight up). Some angles are quite easy to hit back, but 
others are wider and are hard to judge. These also give the 
impression that the game is running more quickly. 

There are various changes you could make to the program if you 
wish. You could try changing it so that the ball sometimes bounces 
randomly off the odd brick rather than just ploughing through the 
whole lot. There is no high score factor in the game, and it may be 
good practice for you to add one. There are no user-defined 
graphics. Problems occur if you use a graphic-bat due to SCREENS 
(see NIGHTFALL) but you could get over them by using the 
methods given. A graphic-ball should not present too many 
difficulties. You might like to design your own bricks — they can be 
any shape in this program as long as they are yellow (for ATTR to 
work). They do not even have to be all the same shape — you could 
have randomly shaped bricks. 

Remember, the aim of the game is to knock out all the ‘bricks’ at 
the top of the screen by bouncing the ball off the bat which you can 
move at the bottom of the screen. Keys “5” and “8” move the bat 
left and right respectively. The game ends when the bat misses the 
ball. You score one point for each brick knocked out. 


Program listing: BREAKOUT 
pees @: PAPER @: INE & 


TS f> C3 fis fh) be 


LET u=21 
LET p=14 


S99899N00 
v 
D 
by 
z 
| 
a 


MJ 


150 
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15@ LET a=u 

ai LET s=6 

460 LET t=p+4+i 

i L t=t{INT (RRND £5) +1) - TINT 


i178 PRINT AT uw,Ps INVERSE 1; "xX 


x 

172 PRINT AT 11,08;5 

47S IF INKEY$="2" THEN COPY 

47S PRINT AT a.ts”* “ 

18@ LET a=atda 

19@ LET t=tedt 

495 IF a=0@ OR a=21 OR tc=@ OR t 
+231 THEN GO TO 248 

497 IF ATTR (t(a.ti3=6 THEN LET s= 


@ gee AT a.t; INVERSE 1; IN 
@ PRINT AT U.sP; 7 
220 LET p=p#( taNKEY $= of ¥(p <26 
3} -(CINKEY nee ¥(P >@3 3 

225 LET ee CINKEY b=" 3") #(p=261! 
~TINKEY sash ¥(Pp=25) 

230 GO TO 178 
240 IF 3=21 AND SCREENS (a,.t) =" 
SS“ THEN GO TO 162 

250 IF a=21 THEN GO_ TO 31@ 

aS@ IF t<¢=0 THEN LET t=ABS t: L 


t 
“27a IF t>=S41 THEN LET t=34: LET 


28@ BEEP .1,-18 

290 IF a=@ THEN LET da=i 

3@0@ GO TO 2008 

3108 PRINT AT _a.ts INK 2; “EF 

320 BEEP 1,15 

33Q XF INKEYS$<>"" THEN GO TO 33 


Sd Pt ba a alll THEN GO Fo 3408 


iy f+ 
al La 


GAMBLIN’ FEVER 
This program, a variation of the Fruit Machine or Slot Machine, 
idea, makes effective use of user-defined graphics (in blocks of 
four) to create a slot machine which positively bristles with 
features. The program listing gives no hint of how effective this 
looks when running on a colour television. 

The concept of the gameis simple: You start off with $5@ in front 
of a slot machine which has four ‘windows’, behind which reels 
revolve. The reels contain a random, equally distributed, mix of 
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three symbols — BELL, CHERRY and APPLE. You press ENTER, 
and the reels start spinning, eventually coming to rest with 
symbols showing through the windows. If three of them are the 
same, you win $35. If all four of them are the same, you win $1090. 

The game continues until you ‘break the bank’ (make $500 or 
more), or go broke. Each spin costs you $5.0@ and this is 
automatically deducted from your money total, which is shown in 
the top right hand corner of the screen. 

From time to time, a HOLD mechanism comes into play. The 
word HOLD starts flashing, and you can then keep any of the 
windows fixed for the next spin. You do this by entering the 
number of the window (they are numbered from left to right), then 
pressing ENTER. You can hold any number (or none) you like, and 
you indicate that you've finished selecting the numbers you wish 
to hold by pressing ENTER, without preceding it with a number. 

There is one more feature. The BELL is the most valuable 
symbol (which is why it is worth HOLDing BELLs when they come 
up). Two BELLs next to each other (except when there are four 
BELLs) are worth a bonus of $15, so if you have three BELLs, 
instead of making the normal $35 for three symbols the same, you 
make $59. If you do not have three in a row, but there are two bells 
next to each other, you'll get the $15 bonus automatically. The 
program does not highlight this bonus, but quietly adds it to your 
total. 

This program is designed to act a framework within which you 
can add whatever features you like. Extra symbols could be one 
idea, different sound, a NUDGE mechanism — the development of 
the program is only limited by your imagination. 

You'll read in the chapter on improving your programs a 
suggestion for working out, in advance and in writing, the major 
sections you'll need in a program, and then starting off by assigning 
the major ideas to separate subroutines. The subroutines can be 
called from a ‘master subroutine call loop’ at the beginning of the 
program. This is what we have done in this case. 

If you look at the beginning of the listing, you'll see there are 
three subroutine calls, followed by a GO TO 40, which takes you 
back to the second and third subroutines repeatedly. The first 
subroutine (from line 720) assigns the starting variables, and 
defines the graphics for the symbols. The second, which is called 
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throughout the program, spins the reels. This subroutine starts at 
line 290, and it calls a further subroutine (from line 210) a number of 
times (eight, in fact) during each round of the game. The final 
subroutine, which is only called if the random number generated (in 
line 50) is greater than 45, brings the HOLD option into play. 

You can see, from the beginning of the listing, how the program 
was written. The first thing | did was work out what | would need 
(initialisation, a spin routine, and a HOLD routine), and then wrote 
the lines to call up subroutines. The program was renumbered at 
the end, but initially | left a lot of room between the subroutines, 
starting the initialisation one at 9000, the SPIN at 8000, the PRINT 
REELS (which is called within SPIN) at 6000 and the HOLD at 
3000. 

You'll see that the program is clearly broken down into sections 
by the strips of asterisks, in REM statements. This makes it 
relatively easy to work out which part of the program is in charge of 
which task, and should make it easy for you to modify if you decide 
to. You can, for example, change the PRINT REELS section 
(210 to 280) without changing anything else at all. 

Working in this way, and applying the other suggestions given in 
the ‘better programming’ chapter, should help you write programs 
which not only work with a minimum of debugging, but are 
sufficiently clear to be readily understood when you return to them 
after a break. 

We'll look at the program section by section now, and outline 
what each is doing. 

We've already discussed the first section (lines 10 to 60) which 
cycle the program through the subroutine calls. We'll look at the 
subroutines in the order in which they are called, rather than the 
order in which they appear in the program, as this makes it easier to 
understand what tasks they are carrying out. 

The first subroutine starts at line 720, and as the REM statement 
points out, this is for ‘variables and graphics’. It is always a good 
idea to assign the variables at the end of the program, not only to 
ensure the program runs as fast as possible, but to give you a lot of 
room to add extra variables if you discover, as the program writing 
is under way, that additional ones are needed. 

The variable MONEY, fairly obviously, holds the money you 
have, and starts off with a value of 50. Line 760 dimensions four 
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arrays, the first two (the string arrays) to hold the user-defined 
graphics and their colours (I'll explain this shortly), the second two 
to hold the numbers created for each ‘spin of the reels’ (A), and to 
hold your wishes regarding HOLD (Q). 

The routines from 770 to 1030 define the graphics, calling on the 
DATA statements from line 1158 onwards. Lines 84@ and 850 add 
together the four quarters of the apple, along with the control 
character (CHR% 16) for INK and the character for red (CHR$ 2). 
This ensures that the statement PRINT A&(1) for example will print 
the top half of the apple, in red, without the need for PRINT INK 
2:"AB” which would otherwise be required. It also makes it easy 
to call the relevant symbol up when needed in response to the 
random numbers generated in line 44@. Lines 930 and 940 add the 
parts of the bell, and the colour yellow, together; and 1020 and 
1030 do the same for the cherry (actually, there are three of them) 
and magenta. 

The letters to enter, where you see the symbols in the printout, 
are (and these, of course, are graphics) A and B (line 840); C and D 
(line 850); E and F (line 930); G and H (line 940); J and K (line 
1020); and L and M (line 1030). 

The lines from 104@ to 1139 print out the basic fruit machine. The 
reels will be overprinted on this as the game proceeds. (The initial 
form of the machine, and the shape of the symbols, along with a 
decision on where various words would appear as the game 
progressed, were worked out on a commercial product called 
Print’n’Plotter Jotter which has ruled forms with number 
references which relate to the PRINT AT locations on a ZX 
computer. | have found this product of great use in my 
programming work, and it — or a similar one — may well be of help to 
you.) 

From the RETURN of that subroutine, we go to the SPIN REELS 
subroutine starting at line 300. Firstly, $5.00 is subtracted from 
your money (line 32@) to pay for the spin. Next, the variable PRIZE 
(which will hold your win, if any) is set to zero. Line 350 asks you to 
press ENTER to ‘pull the handle’ on the fruit machine, and line 360 
waits until the keyboard is clear, then moves to 370 to wait for your 
keypress. Line 380 wipes out the ‘Press ENTER . . . ’ instructions. 
Your money total (now that it is minus five dollars) is printed by line 
390, and the routine from 400 to 470 spins the reels eight times, 
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calling up the PRINT REELS subroutine (from line 210) each time it 
goes through the Z loop. 

The B loop, inside the Z loop, generates four numbers at random 
between one and four, and assigns them to elements one to four of 
the A array. If you have indicated you wish to hold (which is shown 
by the value held by that element of the O array), the program 
jumps over the random number routine, and goes straight to NEXT 
B. Line 430 simply creates a pleasant ‘fruit machine’ noise during 
the spin. This is after the ‘hold option’ check (the element of the 
array Q) so that there is a different sound if one or more of the reels 
are held. This will be quite clear when you run the program. 

Line 480 sets all elements of the O array to zero which, in effect, 
resets the HOLD mechanism to ‘no holds’. Lines 490 to 510 check 
for the various winning combinations, 490 for a ‘jackpot’ (four of 
the same symbol); 500 for a ‘three of a kind’, and 510 for two or 
more bells in a row. 

Lines 520 to 540 produce some sounds while you wait for the 
result of the spin, and your winnings — if any — are added to your 
MONEY in line 55@. Line 570 prints the name of the win (Q$) on the 
screen, and line 599 prints out the amount of the win (PRIZE) on the 
body of the fruit machine. If you have scored a bonus (two or three 
bells in a row), this is indicated by lines 61@ and 620. Line 630 
produces an interesting arpeggio to end the round, line 630 
changes the MONEY total and lines 650 to 670 wipe out the win 
and prize messages. Lines 680 and 690 check to see if you've 
failed (by going broke) or if you've achieved the object of the game, 
to break the bank (by getting more than $500.00). Either of these 
conditions will end the game. 

The PRINT REELS subroutine (from line 21@) is fairly 
straightforward, making use of the elements assigned to the array 
AS as was described earlier when | was talking about the user- 
defined graphics. 

The HOLD subroutine, the last we shall consider in the 
discussion of this program, plays seven clear notes (line 100) then 
prints up the word HOLD! Here we can see some fairly routine, but 
useful to note, error-trapping routines. Firstly, the computer 
expects a string, rather than a numeric input, even though it 
eventually wants numeric information. This means that a simple 
touch of ENTER will get the program on its way, whereas the 
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computer cannot accept a ‘no-number’ numeric entry. Line 130 
checks to see if the input is, in fact, the null string, and if so sends 
action to the ‘unprint’ (which you'll understand in a moment) 
routine, and then to RETURN to get out of the subroutine. 

Line 140 takes the first element of the string — QS(1) — and 
converts it using VAL into the number equivalent. By taking the first 
element, we override the possibility that the user may enter more 
than one number at once. Line 15@ assigns this number to the 
same element number of the array Q (that is, puts Q(1) equal to 
one, or Q(4) equal to four, as the case may be). Line 170 prints, ina 
position related to the number entered, HELD and the number, 
then returns to line 120 for the next input. When the player enters a 
null string, by pressing ENTER without a preceding number, the 
computer goes to line 190 which deletes the HELD messages, and 
then RETURNs to the master loop, when line 60 sends the action 
back to line 30 to begin the loop again. 

| suggest you enter this program as itis, fora start, and then work 
on the various sections. You may wish to add additional symbols 
and alternative win routines, or — as | suggested at the beginning — 
a NUDGE facility. Once you understand how this ‘fruit machine’ 
works, you might like to try and write one which uses four symbols, 
and only three reels, or one which shows the symbols above and 
below the winning ones (so nine show in a three window version) 
with some combinations on the diagonals as winners. 


18 REN GRHELIN' FEVER 

2Q REN 2F HF RXEXEEEHE 

Se GO Suse zee: REM UARIABRLES 

408 GO SUB 290: REN SPIN REELS 
5a IF PND? 45 THEN GO Sum Fae: 


68 oc TO 48 
YE REN FFF SHPFSHFFFFAAAAHH 
Ba 


i@@ FOR T=1 TO 7: BEEP .1,8a-Tsz 


4428 PRINT AY 3,22; FLASH 32; INK 
RNDes4¢; “HOLE: " 

iZa INPUT IRE 

13@ IF ag="" THEN GO Te i192 
14@ LET &@=VGL Geta: 

4568 LET ata) =m 

a17@€@ PRINT ey O40, eae Ik RND#4; 
FLASH 1; “Held: ni * 
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18e@ GO Ta 4128 
233@ PRINT AT 2,22 
pees “RY 


“AY jd2,e2¢2;5" 
oa az 


202 RETURN 

2382 REM £4 FF FFFFIFFFFFFFIA+FF 
220 REN PRINT REELS 

23a REM FLELESELE RESET EES F 

24@ PRINT AT 6,3;AS (ATI var Fa 


25@ PRINT AT GG; ASIATQAIIGAT 7, 
2 PRINT RAY GS AR(AIBIIGAT 7, 


@ PRINT AT G&G, 3127;AS (RA (4h)35AT ? 
seh Mer: 
RETURN 
eae REM FRESE FFFTFEFFRAPHHS 
B@ee@ REM SPIN REELS 
BSlS@ REM FHEFRFEHHKERFFEFEFFRHS 
Bae LET NONEY =<MONEY —-S 


RIFE=8 
GdQ@ L Qs="":> LET Pes 
S5@ PRINT AY 4,139; FLASH 1; PAP 
ER 4; INK 73" Press ENTER "; AT 5S 
229; " ta pull the "JAT 6,21; " ha 


Adle 
_c6@ IF INKEY$<>"" THEN GO TO 36 
'837@ IF _INKEY#="" THEN GO TO 372 
58@ PRINT fF 4,19; 
wi QT 5.195" "AT 6, 


39@ PRINT AT 2,23; FLASH 41; INU 
ERSE 3; INK RND #4; MONEY; FLASH a 
? INVERSE @;™ 

4@@ FoR z=1 Ta a 

41@ FOR &6=1 Tro 4 

420 IF @(8: =B THEN GO TQ 458 

423@ BEEP .8@88,238 

440 tee Pes =INT (RANDS3144 


438 tr Atal: Aiea) AND Ate’ =AB) 
AND ACS sA(¢? THEN LET @3=" JACK 


Bote “: LEY PRIZE=-i8e: GO To Sa 
ee 

S@e IF (Atari =H(G? AND ACSI aA 
3 OR (A(13sA(2) AND Ata. =AiB33 oO 
R iRigi=R13) AND AtQ1=Ai41: aR i 
A(B) =A(S) AND AI3) =A(4)}) OR iAtl 
32A(2) AND AA =At43) THEN LET & 
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1 


=" 3 OF A KINDI! “: LET PRIZE= 


S10 IF A(1)=2 AND Alia) =P OR Ai2 
=2 OR AA =s2 AND Ate 
THEN LET Pg=" BONUS?! ": LET 
" PRIZE =PRIZE +415 
526 FOR G=1 TO 3@ 
580 BEEP .@@5,5@-G: BEEP .@e8,5 


nh 
u 
= 
Mute 
D 


| NEXT G 
S50 LET NONEY =HONEY +PRIZE 
S6e IF = THEN GQ FO &38 
$78 PRINT AT od SR aeHe a; FL 


Qs 
Sha PRINT THe 6; BiG ape sme FLAS 
H 3; INVERSE i; INK PER 4;8 


s 
S90 IF cerzere THEN PRINT AT i 
Beise GHT INK 2; "You win &.; 


Gee IF Pea"" THEN GO FQ B28 

6186 PRINT AT 18,20; FLASH 434; IN 
K 5; PAPER 3;Ps8 

62@ PRINT AT 311,28; INVERSE 4; 


; a; PR 
638 FOR Ys=1i1 TO i@@: BEEP . ae, T 


NEXT _T 
ese PRINT AF 2,28; FLASH 1; INU 
RSE 1; INK RND#4; HONEY; INVERSE 


a 
650 Lad of AY 19,6;' 


aa ar 


660° PRINT AT 18,2; INK @; "im 


67@ PRINT AF 12. aa; "5 
AT 2,20; “ * 

65e TF MONEY <2 ial PRINT Ay u@s 
8; FLASH ai; “Thea °s the End, RU F 
ciend", "You _ are * roke®: SToar 


STor 
ETURN 
72a REM SEEEEEEHEEE EEE EE EKEE 
P7238 REN VUARTABLES.-GRAPHICSA 
7408 REM FF FFF FFTREFFLIFFH 
750 LET MONEY =52 
76@ DIN a eee PIM B$13,4): Bb 
IM Ai4).: BIN = 
778 FOR Z=2 4 
780 READ A: READ BR: REAP C: RES 


a 

732 POKE USR "A"4Z,A 
&S@ POKE USR “5B'+2,;8 
&1@ FPOKE USAR “OC'42-C 
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S28 FPOKE USAR "D's+2,D 
@G@ NEXT 2 
346 yee AS (Ts =CHRS IS+CHAE 2+ 


O88 LET BSiis =CHRS 16+CHRS 2+ 


B60 FOR 7=2 TO 


A 


"OA 
om cae 


872 READ E: AREAS F: REAP G&G: REAR 


oC OH 
&S8@ POKE USAR "E'AZ,5 
S90 POGKE USSR NFM eZ .F 
Bee POKE USAR “G"4+Z2;6 
918 POKE USR “H'32.H 


2 Zz 
3a Pee AG (Al =CHRAS LS84+CHRE 64° 


542 LPT BSt2)=CHRS 16+7CHRS 6+ 
95@ FGR 2=@ T 


aQ ? 
S68 REAP d: REAP K: READ L: REA 


ey) 
Q7@ POKE USAR "UT4Z,0 

SR OCKN42,K 
G38 POKE USR “EL ™4Z,L 
1868 FOKE USR “H"4Z.4 


EXT 
e208, LeT Ag (3) =CHRS 267CHRS 3+ 


1838 LET BSS =CHRS 26+CHREF G+ 
i@4e PAPER 7: CLO : BORDER? 
1@5e PRINT AY 1,3; INK @:* 


2@6@ PRINT TRS 2; INK ; 
K 4; PAPER 2; FLASH 1;" 
“i FLASH @; PAPER 2, NK 


Ih 


wy 
WM’; TAB 21; INK 2; FLASH ae ene 


3s"; MONEY 
18728 Pane TAB 2; INK 8; "HR; 
PER 2; FLASH 


VERSE INK 4; PA 
; in INUERSE @; FLASH 
i PRPER 7; INK @; "i a 

4ea@ FOR 7=1 Ta 12 


IN 
1 
tra} 


41090 PRINT TARE 2; I 
mm 


12188 NEXT 


a 
4348 PRINT TAB 2: ° 3; PRFEN a; 
NK 3; FLASH 2;" 7 RL 
SH @: PAPER 7; K a; 


2342@ PRINT TAE 2; °°"; _PRPEB 6; 
NK 3; INVERSE 1; 


I 
R 


Re 


ae note a. NUERSE’ @; PAPE 
1i3@ PRINT TAG &; 
mm 


RY; 
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41148 RETURN 

1150 REM APPLE 

2 ee DATA @,3,121,854,8,88,63,25 
4,8,428,63,254515,32,31,854 

447@ DATA ai, 4437 15 ,252,51,252,7 
,248,52,254,1,224,161,254,8,2 
218@ REN BELL 

1198 DATA @,128.,.7,348,8,128,15,2 
40,1,192,15,248,9,824,31,252 
i268 DATA 3,224,8,1258,3,224¢,1,13 
2#,3,524,1,132,0,2824,83,8 

321@ REM CHERRY 

Aze2e0 BATA &8,0@.1,135,8,2,26,5,56, 
12,6@,16,124,52,126,208 

129398 DATA 12 7,204,61,224,124,2@, 
25,240,124 ,36,1,224,56, 72,080,224 
2408 TAP 


And here are some sample printouts, but without colour and 
flashing lights they fail completely to do justice to the effect of 
running the program on your Spectrum: 


Money sii 
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SCREENS RACE 

I've called this program SCREENS RACE because the SCREENS 
function on the Spectrum is the key to the program. The idea of the 
program is simple. On the screen is a ‘racetrack’, which looks like 
this: 


os RARRRKAKKARMAKARKKX RX KXMMRMRXMXXRRKK 


3 XxX MMXXXX 
x xx XX XXX 
x. xx XXX xX 
xX xX XXX xX 
x x x 
xx XXX XMXX x 
KKK XMMXMM XM  XRK x 
XXXX XXXX XXXXX x 
XXX KXXXX xX XXXMXX XX 
XXX XXXXX XMMXXK = XX 
MXKXKX XXXXK XXX XX 
XKXXXX XXXMMX XNXXXXX X 
XXXXXX XXXXX  XXMXXXX X 
RXXXXXXR XXXMNXNXXXRXXXXXK x 
KHXXXKXXKX XXXXXXNXAXKXK XXX 
MXXXMNXNXNK  RXXXNXKXXX XX 
XMXXXRXXXXK XXXXXXXK XXXXX 
MHKX XXX 
XXX xx MXXIK 


AXX XKKX xx 
SEIKI IMINO EIEN 


You start up in the top left hand corner of the screen, as a flashing 
figure nine. You have to drive this flashing number around the 
screen in a clockwise direction, using the “R” (up), “F” (left), “J” 
(right) and “N” (down) keys. You'll find that you'll soon get used to 
using them for these directions, and they've been chosen because 
your fingers seem to rest naturally on them (which is more than can 
be said for the “5", "6", "7" and “8” keys generally used to control 
on-screen movement). 

You have to try and get right around the screen, without bumping 
into any of the walls. When you get back into the top left hand 
corer, the nine will change to an eight, and continue being 
reduced by one every time you complete a circuit. Your aim is to 
get around the screen, safely, nine times. You are given a rating 
when you crash which is related to how long you kept your ‘car’ is 
going, and to your score. The score is changed in proportion to how 
long you have survived that particular round. The score is being 
decremented all the time you are driving, so it is in your interests to 
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keep the car moving, and not play it too safely. Before you run the 
program, make sure the CAPS LOCK is on, so that the INKEYS 
reading of the keyboard can be interpreted correctly. 


Ee 
20 REM EF Sea, LOCK ON! gm 


FaR z=9 To STEP -32 
£6 PRINT AT CARD CARA; BRIGHT 
a; FLASH 432 
*se@ LET SCORE=<SCORE-1i1 
38 LET AL=CARA: LET D1i=CARD 
6@ IF INKEY$="F" AND CQRAR+1 TH 


2 

oe IF NRE ee ae CARA <30 T 
A+ 

1@@ IF INKEYS="R" AND CARD O1 TH 
2 

2410 IF INKEYS$=""N" AND CARD<20 7 


208 IF SCREENS {EAAD, CARA) ="x" 
THEN GO TQ 178 

340 IF CARAt4 AND CARD «4 THEN & 
ET CARA=s4¢: LET CARD=1: PRINT AT 
Bx A’;“ “: BEEP .4,RNDs5@: NEXT 


* ise IF 2=@8 THEN GO TQ 270 
46@ GO To sea 

A7@ REM *#*##£#CRASH*EX¥¥ 

21808 FOR R=1 TO 5@: BORDER RNDs7 
198 PRINT AT CARE,CRARA-1; BRIGH 
T A; “X#X";AT CARD, CARA - -1i; INVERS 
£ a5 Exe": XINUERSE @ 

28@ NEXT R: BORDER 2 

21@ PRINT AT 3.5; FLASH_1; “Your 
Fati~ng is "; INVERSE 2; INT (8C0 
RE#£3-L272273 

220 FOR R=1 TO SO: BEEP .90906,R- 
5@: BEEP .8807,5@-/R: NEXT R 

248 CLS 

25@ GO SUB 4¢68@ 

260 GO TO 4a 

2708 REM ##235UCCESS#x=% 

Hees; PRINT AT &,@; Mra BRIG 


330 GL 
322 ter SCORE =1000aa 
400 
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360 REM ##INITIALISESE 
37@ PAPER se INK 7: CLS 
3806 BORDER 

390 LET SCORE =5e0e 


PRINT 


“STARTING SCORE I5 “: 


4080 
FLASH 1;SCORE: PAUSE 3&o 


420 FOR Y=1 TO @ STEP 


4230 INVERSE Y 
449 PRINT AT @, 
33200 00GCOCOGOOIOI0C 


-1 


Bj XXAKXRXAXKXRXRXRXXR 


452 *x xx 
MKXXRKX" 
4268 PRINT “xX MX RK 
VIO" 
4798 PRI ee xX HAM 
48@ PRINT “XX xx XXM 
4908 PRINT “xX x 
508 PRINT “xXx XXX 
KRXN <** 
520 PRINT “XXX XERAXRAM xx 
XMMM et 
S2a PRINTF “XXXN AMA 
MRAM me 
S3S@ PRINT “XHXAX ARAMA x” 
MRXAAMK ie 
SdQ@ PRINT “XXXX SMX MX 
MMMM xx" 
sees cet eal “KMKMAK XKKXXXK 
S66 PRINT “xHXNXKXX MMAR 
MXM MMM x" 
S78 PRINF “XMRXXX XKRMM 
MAXMKH x" 
SSO PRINT “XXXXXXX XKXRXKKX 
MRXMKNKRKM x 
SQQ@ PRINT “XXXXXXXX XXXAXXX 
MEXKXN AMX * 
Oars ENT ene XXMRRAXRX 
628 PRINT “XNXAMKKKXAXX KKM 
XX xXx 
528 pest A RAK 
B3a aa ad “MAX KK 
648 PRINT “XXXX XRXX 
. MAMXNXX" 
658 PRINT “XXXXAXNXXKRXXXXXXAARKN 
MXR MAMKRRARM"™ 


66@ NEXT Y¥ 
678 LET CARA=3 
6&8e@ LET CARB=1 
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7@e@ REM IS UP 
71a R F IS LEFT 
720 REM J IS RIGHT 
730 REM N IS DOUN 
740 STOP 


Action goes to the subroutine starting at 369 when you first run 
the program. This subroutine, at the end of the program like many 
of the programs in this book, initialises the variables you'll need. 
The PAPER colour is set to black, the INK to white, and the 
BORDER to red. The starting score is set to 5000. Line 400 prints 
the starting score on the screen, and holds it for a few seconds. 

The Y loop (lines 420 to 660) prints out the racetrack twice, which 
gives a most effective start to a round, as you'll see when you run 
the program. The position of the car across the screen is given by 
the variable CARA and the position of it down is CARD. 

On return from the subroutine to the main program, a loop (Z) is 
started which counts down from nine to one. The car is printed (line 
5@) and the score is decremented by one (60). Line 70 sets two 
new variables (A1 and D1) to the car location, so that the car can be 
‘unprinted’ once it has been moved. Lines 80 to 11@ read the 
keyboard, with line 120 ‘unprinting’ the car from its old position. 
Line 14@ checks to see if the car is back within the innermost 
squares of the top left hand corner of the track, and if it is, sends 
action back to the next run through the Z loop. Line 15@ checks to 
see if the Z loop is over (which means you've won), and if it finds 
that itis over, sends action to the SUCCESS routine, starting at line 
270. If Z does not equal zero (i.e, the final circuit has not been 
made), line 160 sends action back — still within the same run of the 
Z loop — to line 50, where the car is printed in its new position, and 
the circuit begins again. 

We left line 130 out of this discussion, because | wanted to talk 
about it at a little more length than | have some of the others, and 
because one of the effects of line 130 is to send action to the 
routine which follows the point we've just been discussing, the 
CRASH routine starting at 170. Have a look at line 130. It uses the 
SCREENS function to do one of its two tasks on the Spectrum (the 
other ts to save or load back a full screen picture from the television 
to tape) which is to examine the contents of a specific location. In 
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some of the previous games (such as FIELD OF SKULLS and 
JACK-MAN), the function has been used for the same purpose. 

The two numbers which follow the word SCREENS in brackets 
are the same as the PRINT AT locations of the place on the screen 
we wish to examine. Line 130 looks at the position CARD, CARA 
which is where the flashing number ‘car’ will next be printed. If it 
finds an X there, it knows the car is about to crash, and so directs 
the program to the CRASH routine starting at line 170. If it does not 
find an X there, the program continues on through the loop. If you 
decide to make your track out of characters other than X’s (and 
remember, SCREENS will not read graphics characters), make 
sure you change the X in line 13@ to whatever character you make 
the walls out of. 

The CRASH routine is interesting, producing some pyrotechnical 
effects which you can probably employ in other programs. The R 
loop (lines 180 to 200), prints a design ("X*X, alternating with 
“*X*") just where the car has crashed, while changing the 
BORDER randomly. This random BORDER change is quite 
alarming and may even, as it does with my television set, cause the 
central picture area to bulge slightly, and produce some weird 
crackling noises from the set. Once we've endured the R loop, the 
BORDER is reset to red (the second statement in line 200), and 
then the score Is printed up on the screen, as a ‘rating’ (three times 
the score, minus 127 times the Z you were at when you crashed). 
Line 22@ produces a loop of sound, somewhat like those discussed 
within the sound chapter of this book. Line 250 sends action to a 
line just after the one where the score is set at the very start of the 
game, so that your new score Is not increased. 

The SUCCESS routine, from line 279, is only called if you manage 
to get all nine digits around the screen safely, a really formidable 
achievement. It can be done, but only after a great deal of practice. 
“You've done it champ!!"” you're told, and your score is changed to 
19000. From there the program follows the same route as it does 
at the end of the CRASH routine. 

There are many things you can do to change this program. You 
may prefer to define a little graphics car and only aim to get it 
around the track once. You may wish to add a little sound. 

Do not feel constrained to stick with my race track. Try mine out 
first, and then change or complicate it in any way you like. You may 
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even like to write a routine to generate a new track every round, at 
random, or switch between two or more of them. You'll find, that it 
is quite easy to cheat in this program, by simply driving your car 
backwards into the area tn the top left hand corner, and holding it 
there while the Z loop is decremented. You may wish to write a 
routine to stop cheats from doing this. 


SPAWN 

SPAWN is a variant of the famous John Conway game of LIFE,’ Ib 
this version, a number of little green frogs dance around the 
screen, creating the patterns for which LIFE is famous. The game 
of LIFE was invented by Mr Conway, of Cambridge University, in 
October 1970. It simulates the birth, death and growth of cells ina 
closed colony. This, however, is no Malthusian nightmare, in which 
the cells breed ceaselessly until they run out of food or room. In the 
world of LIFE, and of its offspring, SPAWN, birth, death and 
survival follow most civilised rules. 


The cells live on a grid, and follow these rules drawn up by Conway: 
@ There are eight neighbours for each cell on the grid 


@ Survival to the next generation occurs when a cell has two, or 
three, neighbours — no more, and no less 


@ |f there are three surrounding cells, and the place on the grid 
being checked is empty, then a new ceil will be born in that spot 
on the grid in the next generation 


@ Any cell with four or more neighbours dies in the following 
generation 


There are anumber of ways to write this program, and | suggest 
you might like to try and write it yourself, before seeing how | have 
done it with the spawning frogs. There is, however, one additional 
piece of information you need to construct the game properly: the 
rules must be applied all over the grid at the same time, so that 
changes for the coming generation do not effect cells which have 
not yet been checked in the present generation. Set up a 10 by 10 
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grid, and try to work out a program to place cells on it and check 
those cells in accordance with Conway’s rules — which you'll have 
to do by working out a routine to ‘circumnavigate’ the grid position 
being checked. 

Here is my listing, which you may want to use as a Starting point 
for your own program, or may simply want to run to see what 
SPAWN looks like in practice, so you'll Know what you're aiming at. 


REM FF FFPFLFLFEFEFE 
REN SPAUN 


: eee EFEFFFFLFFEFEFEFE 
SUB 260 


BEEP -9@8,RNDsdG: BORDER RN 
PRINT AT 2,6; INK 32; FLASH 


a; CBRIGHT a;" Spawning "“;z;" °°; 


2 
Er Y 
22s 


5.8; 


FOR M=<=2 TO 9: PRINT ‘TRB 6; 
FOR N =5 Toa a 

LET X(N,NI =Y (4, 

PRINT INK a; chase’ (XH (MLN " 


FOR sa TO & 

LET G=0+'I1VUAL ASIN} =144) 
NEXT i 

IF XUN,N) =144 AND &@<>2 AND 
THEN LET YIN,N) =32 

IF XtN,N} =32 AND G=3 THEN i. 
{M,N} =14a 

NE N 


Y 20 FO 


Se 
REN *#* XINITIALISATION #F 
RESTORE 

OoIrM As oe 28): DIM X(18,130) : 


FOR 623 TO & 

READ ays 

ren as (GI =O 
EXT 


DATA Ea (N-2,.N-1)3" oN 1573 Ne 
{M-1,N#i13", “XM, nN $9" "x iN, 3 


e NCHF1, N-33° -"x IMELLNIN LUN H 


Mtl1,N4+13" 


348 
358 


REN INITIAL CULTURE 
FOR FP=1 TO 18 
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360 FOR @=1 TO 12 
378 LET X(P,@3 =32: LET YIP,O) <3 


Pp 
$832 FOR G=1 TO is 
41@ READ A 
42a READ b= 
#350 LET X(A,B)=144: LET YtR,B) = 


XT @ 
S@@ DATA 66,153, 90,60.24,126.66 


S1i@ LEY z= 
5S2G@ RETURN 

I'll go through it to explain what each of the sections of the 
program is doing. We go first to the subroutine from line 260, 
where initialisation occurs. Line 280 dimensions three arrays: AS 
(to hold the mathematical relationships which exist between a grid 
position, and the positions which need to be checked around it); X 
(to hold the ‘current generation’); and Y (to hold the ‘following 
generation’ which is formed while the current generation is on the 
screen). 

The loop from 290 to 32@ reads the DATA statement at line 330, 
and places each of the ‘position formulae’ into successive ele- 
ments of O8%. Lines 350 to 399 fill the grid up with empty spaces (32 
is the Spectrum code for an empty space), and also fills the 
‘following generation’ with empty spaces. Lines 400 to 440 read 
the first generation information, held in DATA statement 450, into 
both grids. The number they are assigning to the array elements is 
144, the character code of the first user-defined graphic (graphic A). 

The final Q loop, from 460 to 490, defines the shape of the frog 
that will be printed as CHR% 144 in due’course. Z, the number of 
the spawning, is set to one, for the first generation. 

On our return from the initialisation subroutine, there is a BEEP, 
and the BORDER flashes. The number of the spawning is printed at 
the top of the screen, and the loop from 7@ to 13@ prints out the 
colony. Line 90 first reads the ‘following generation’ information 
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(the Y array) into the ‘current generation’ (X array). It is the X array 
which is printed. 

The next loop, from 140 to 23 is the most important one for the 
working of the program. Q, set to zero in line 16@, is the variable 
assigned to count the cells surrounding the one under 
consideration. The W loop, lines 179 to 199, is the magic one which 
checks the eight cells surrounding any cell under consideration. 
Notice that M and N, the two master controls of the checking loop, 
only move from 2 to 9, so that cells on the extreme outside (which 
do not have eight neighbours) are not checked. Line 180 
increments the value of Q by one each time the expression VAL 
AS(W)=144 is found to be true. The Spectrum assigns a value of 
one to a true statement, so this line is a slightly shortened way of 
saying: IF VAL AS(W) = 144 THEN LETO = QO + 1. 

Once the neighbours have been checked, the program acts on 
the count. If the cell under consideration contains a frog (i.e. 
contains the value 144) and there are not two or three neighbours 
(i.e. Q is not equal to two and is not equal to three) then the 
corresponding cell for the next generation (held, you'll recall in the 
Y array) is set to 32. If, however, the cell being checked is empty 
(contains the value 32) and there are three neighbours (Q equals 
three) then the next generation element is set to 144, and a birth 
occurs. 

Once this process has been repeated for the whole grid (except 
for the cells on the outside of the grid), the spawning count is 
incremented by one (line 240) and the program returns to line 50 to 
print out the new generation, and start the process again. 

You can add your own starting colonies to this program by 
changing the DATA statement, line 450, where the numbers are in 
pairs, relating to the A and B within the X and Y elements in line 
430. One pattern which you might like to try, once you've run the 
one contained in the original program, ts: 


452 DATA 3,3,3,5,3,6.3.3.-6.3,-6, 
6,7,-5.7,6,8,3,8,4,8,7.8,08,8,8,8, 


Note that there are 24 elements in the original spawning, so 
you'll have to change the 15 at the end of line 400 into a 24. This 
pattern lasts for 16 generations before dying out. Once you've 
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seen it go through the very attractive patterns it forms in this 16 
generations, add a single cell to the original colony, or delete one, 
and see how this single change effects every generation from then 
on. 

You may wish to write a routine to set up the initial colony at 
random, or one which allows you to enter the starting colony at the 
beginning of each run, in response to computer prompts. When 
you're working out the initial colonies, set up a 10 by 10 grid, and 
number the squares one to ten along the top and from one to ten 
down the side, and then read off their numbers. Do not place any 
Starting cells in the outermost ‘frame’ of the grid. 

Finally, here are a few patterns of dancing frogs, from SPAWN: 


Spawning i 


ui 
a 
oy 
3 
we 
io 
2 
a 
wy 


HK 
mR OM 


=e fF 
& 
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Spawning 3 


zs 8 
zER 
= z = 
B28 2 SRS 
4 =z = 
22 
ZEEE 


Spawning 4 


= = 
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& = 
= = 
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WORKIN’ FOR THE MAN — a simulation 

In WORKIN’ FOR THE MAN, you are The Man, the boss of a factory 
producing Zibbies. You have almost total control of your staff, their 
output and your selling price. Your task is to stay in business for as 
long as possible, and perhaps to make a million. 

This program is a simulation, a program in which the computer 
takes the role of ‘reality’, manipulating information, to some 
extent, as it would be manipulated in ‘real life’. 

The two key words in creating a simulation are ‘replication’ and 
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‘simplification’. We attempt to replicate life, but because there is 
no way of including every conceivable factor, we simplify to some 
extent, to end up with a manageable set of variables to work with. 

In this program, which explains itself as it runs, you are, as we've 
said, in-charge of a Zibbie factory. At the start of the run, you are 
told how many people you have on your staff, how much they are 
paid each week, how much capital you have on hand, how much 
stock in your store room, and the selling price of Zibbies. The 
program tells you your total wage bill, and this is the one figure you 
must always keep in mind. The program works in weeks, and you 
must manage to meet your wage and raw material commitments 
each week, or you will go bankrupt. 

The first choice you are offered in a round is that of hiring or firing 
staff. While your employees’ union is quite happy for you to hire 
staff, there is some resistance to firing, so despite your best 
intentions, you are only allowed to get rid of the number of staff 
they suggest. You may enter “7” when you are asked how many 
you wish to fire, and the computer may well reply “Unions allow 
you to fire 2” which means, as in real life, you do not have total, 
immediate control over the size of your staff. And as each staff 
member can only make a certain number of Zibbies each week, 
you cannot keep your factory alive just by cutting the staff to one. 

From time to time, the workers will demand a pay rise, and you 
have no choice but to pay it. Your suppliers, as well, are well known 
for making intemperate price increases in raw materials, so you are 
waging a perpetual war against rising prices and wages. 

You have three factors you can control, within limits: 


1] The number of people on your staff (you cannot fire with 
impunity; each staff member, of course, costs money each week 
to keep; and the maximum output per person is limited). 


2] The number of Zibbies you will make each week (you set the 
production target, which is rarely, if ever, completely met). 


3] The selling price can be changed at your whim (but each 
change makes it harder to sell your stock in hand; you do not sell 
every Zibbie in hand every week, and the number you do sell is 
related, in part, to you keeping your prices unchanged). 
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As you pay your bills, you have to increase your prices from time 
to tirhe (because the wages bill is increasing, and so is the one from 
your raw materials supplier) but the knowledge that each change in 
the price decreases the selling power of your product, should 
moderate your price changes. 

This description may sound a little bewildering, but don’t worry. 
You don't have to remember all this, as the program does most of 
the work, and explains it to you as the game unfolds. 

WORKIN’ FOR THE MAN can end in one of two ways. The most 
usual is bankruptcy, when you'll be told how many weeks you 
managed to keep the factory going. The second way the program 
can end is if you manage to build up a million dollars (capital, plus 
stock in hand). As you'll discover when you play this game, the 
cards are stacked against you. It is a saying in business life that the 
first job a business must do is ensure its own survival. You'll 
discover how true this is when you try to run your Zibbie factory. 
And despite the great simplication which has occurred to make this 
a manageable simulation, it replicates reality in quite an uncanny 
way. You'll find yourself actually despairing when some sales or 
production figures come in, and will agonize over your hiring/firing 
and price-setting decisions. 

Despite its awesome length, WORKIN’ FOR THE MAN is 
actually a relatively simple program, and once you understand its 
layout, you'll find it relatively easy to create simulations of your own 
from scratch. 

As we've suggested several times in the book, you can often 
make mammoth programming tasks far more manageable by 
Starting the job by creating a small number of subroutine calls 
which rotate within a master loop at the beginning of a program. 
This is the way WORKIN‘ FOR THE MAN was written. Here, first of 
all, is the program listing. A discussion of it will follow. 


38 REN FER ET RFP SF FFF FARAH FHS 
2@ FEN WORKIN’ FOR THE MAN 

SO REM fe FSEESFEKHEEEEEHSSEEEE 
4@ GC SUS S@a@@: REM UARITRRLES 
S@ LET WEEK s-WEER +i 
108 GO Sue Saaa- REM FPRINTOLT 
11@ GO SUB B@@@: REN FEQPLE 
12@ GO SUB Eae@e@: REM PRINTOU 

QO SUB SASe@: REM HAKE 

i498 GO SUB B@eaG: REM PRINTOUT 
325@ GO SUB 4@88: REM SALES 
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168@ CO SUB SGE8: REM 
UNPREDICTABSLES 

RRR ORGE CAPITAL =CAPITAL -UAGE sia 

18@ 6G TO 59. 


23390 REM Pe ee 
3eaaa pte UNPREDICT BLES 
Saas 


3@1a tf. RND:.45 THEN SO To Sie 
BS@Oa LET A=INT (RNDeFri +i 
OOS BEEP .S,RND*50: BEEP .4,RND 


3OaS@ PRINT <‘°“Unians demand “3A; 
“s% payrise™ 

Mga Pet WAGESINT 418s (AGEs (As 
WAGE -18@11) -iaa 

3Q5@8 PAUSE 1ae 

3860 PRINT er Pe Per employee 


is ace $° > WAG 

wa?e RUSE eae 

oM?7s BEE 25,AND#SA: BEEP .2,ANE 
+58 

Gaéee CLs 

Bi@@e IF RAND<.&5 THEN Ga Ta 32198 

3130 PRINT ‘°°? INK 2; FLASH 4; °F 
tash flood ruins some aF your",” 

Stock",.;,"8tand by Far damage er 

epoart:”. 

S120 PAUSE ie 

SiGe LET AS=INT (RNDsSTOCH -2) +1 

2i4a@ LET STOCK =STOCK -& : 

Sie PRINT INK 2; FLASH 3; "Ta 
tal siock destroyed was".AF: 2ik 
ea worth $' VP ASSELLPRICE; * ret 
ait‘ : 

3168 parae Lee i 

3Si7ea RINT °'"’"Stack an hand is 7m 

ow Ss STOCK 

GAB PAUSE tae 

S29@ IF RNO>.3 THEN SO Te Beve 

Sige Cis 

S280 PRINT To NSupp lier SBNROUnCES 
dramatic", "price rise:” 

G2410 PAUSE ieee 

S22Q LET ASINT ({ fRANDsisescCoar ry 
3 7188 

wees IF As. THEN GO Ta Bee 
B23a PRINT -- "Cast OF Making Zibb 
bies"“,“goes up by “3; FLASH 1; IN 
K BS S"5A; FLASH @; INK 8," each 
3248 FAUSE ie@ea 

325ea LET CoST=<=fOST3A 

3260 PRINT ~*° INK 7; PAPER a:" 
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t now Pe Os “> FLASH 2; INK F; F 
APER 6; ''s$";CQST;"* " 

Ge2?7ea PRINT” "ta make each ane’ 
B2SBQ PRUSE i282 

B298@ IF RND<.65 AND MARE <SELLPRI 
GCE THEN RETURN 

B2aa CLS 


Seg BEEP .5,.RND#5@: BEEP .4,RND 


GGi@ PRINT °“"You have a chante 
to raise™“,“yaur price" 
3328 PRINT “"“Zibbies new sett Fa 


: 2 
3340 INPUT FLASH az“What percent 
S345 2F R28 THE ee 
Bode 

LET ze PRICE-INT 74 ides (SEL 
PPRICE+AsSELLPRICE /10@) } 74 ae 


B37e@ pRany ’ FLASH 3; INK 3; "2Zib 
bies sett Far $"; S58LLPRICE 
33s8a PAUSE iaea 

S3ae@ RETURN 

33990 REM + FF FFPFFFFFFFFTPPHPR 
42@Q2@ REN SALES 

43@S BEEP .5,AND249@: SEEP .4,.RND 


Sea 

421@ PRINT FLASH 32; PAPER &; °"“Te 
tal stack is "“;8TaCK 

4815 PAUSE i922 

40203 PRINT FLASH 1; PAPER 3; ° "St 
and by far sates repart.ace ss” 
4925 PAUSE 3eae 


cLS 
4@4@ LET A=INT {RANDsSTOCK- (7/100 
4045 PAPER RNDs6: CLS : BORDER A 


4@5@ IF G>STOCK THEN GO Ta 4ecea 
4055 BORDER 7: PAPER F: CLS 
4860 PRINT eae INK 3; "Totat Zibbi 


aE7R LET STOCK =STOCK-A 

4BBG PRINT ee Fram sate: + 
‘7; AXSELLPRIC 

630 LET CBP ITAL =<CAPITAL +AsSELLP 


PAUSE 2ee8 

RETURN 

REM SHEFF HT FF HTFI FFF FHEFHIS 
REN PRINT QUT 

FOR G=4@ TO 5@: BEEP .ae8d,¢6 


Li 


NN BOB sb 
A pee 


Fed OD TD tee Hs | 
i PA) HED yy CIT 


te 
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See IF CAPITAL+STOCK<«1 THEN GO 


i°Yau’ve Bade a2 miltseni!®; PRUS 
EF S288: G2 To s8ea5e 
S@3@ FRINT INK 2; 

TORY REPORT: WEEK EEK ; - 
S@eea PRINT ~ ha (ene Cet on ib 


(AP IT 
SG@EQ PRINT ° INK 31; °Your stores 


a 
J 
iL 
i] 
if 
. 
fe) 
D 
0 


hatd “ZSTOCK: - Fibbies"; TRE 328;" 

worth $°; 570 CKESELLPRICE . 

SBE PRINT TINK 23 “TREY Seti far 
&S; SELLPRICE; * each" 

S@Pea PRINT INK 2; "and cast $°; CR 
ST; ‘' each to make” 

SeeQ PRINT INK ¥; PAPER 3; ° "Wark 
Force is “; WORKFORCE; peaeptie” 

5@80@ PRINT FAPER 1; INK oo their 
wages are §"; UA GE; * each", * and 


che wage bitt this weer", 4% iS 4 
|; WAGE #WORKFARCE 

sine PRINT INK aoe eee me Serge c 

an Make "“;FROPUCE;" Zibbies a 

ek, a& tata cutput ar FO RODUCE Ss 

WORKFORCE 

Si28 RETURN 

Side INPUT “Hew many da you want 
to pake? ‘; MAK 

S235 IF MRAKE=@8 THEN RETURN 

Pld TF MARE sCOSsrsoCRPITAtL THEN F 
el INK #2; FLASH 1; "Not encugh 
eu“: GO TO 8238 

So IF MAKE >PRODUCE sWORKFORCE T 

N PRINT INK ae FLAS ae 2; "Not en 


3@ PRINT AT @,@; FLASH 4; INK 
Target week “;WEEK;" gs " 


fer Page ali oan {ANDSsMAKE 


a 


Bite ce rea 
am. 
in 


AO LD ot 


RINT INK 3; FLASH IL;AT 28,8 
L nace an week “; WEEK; ” wa 


LET STOCK =STOCK MAKE 
LET CAPITAL =CARPITAL-COSTsMNR 


PALISE 5e@ 

RETURN 

S3IG REM SEES EFFFEFETERERE 
6@0@ REN #*#2PECPLE «z+ 

SOid INPUT “How many peopte da y 
OU want", "toe hire? “3A 


“ 


eR 


CHOU ONAS: CUMS, Oe eno CNS 
8S §o.-086- 


Oharitg hy 
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Bele LET WORKFORCE =VWORKFORCE+A 
BB3e@ PRINT AT @,@8@; FLASH 4; INK 
eed Total workfarce is "3; iL0RK 
FORCE 


BG35 PAUSE 1808: 8 SUB Sean 

6@3>? IF A>@ THEN RETURN 

B48 INPUT “How many Peapie do y 
ov vant",”’to “3; FLASH 32; INK 4;” 


6042 IF’ A=@ THEN GO TO Saae 
6@45 IF A>YORKFORCE THEN BO To & 


G6@S5@ LET AR=INT iRNDsR+23 

6@6@ PAUSE 12@8 

6672 PRINT FLASH 1; BRIGHT 1; IN 
K ne Pane, ee eens altow yo 
uy a ir 

683@ LET WORKFORCE =VGRKFORCE-A 
60908 PAUSE i1e@8@ 

6188 RETURN 

PAAA REM FES HFSEHEFEFFHHEKEH*E 
BEae2 Bee BANKRUPTCY 


SB@ig PRINT “TRB 8B; FLASH 4; IN 
ROB: "BANRRUPTI ITT" 

sope PRINT °'""Oh the shame of i 
8@S@ PRINT “‘‘"Stitt, you kept t 


he business" 
B@s4A PRINT “going for “; FLASH 1 
+ INK 1; WEEK; FLASH @; INK @;*' w 


eeks 
Sa5e ieee “*"Enter *“Y* far anat 
her tr “ZU SN” toa give up” 


Sess Let Ag= EINKEY $ 
f2e6e@ IF AS="" THEN GO TO 8@55 
SereG IF Ag=a"¥" OR Ag¥="y" THEN RU 


DMs: beg 
Ry Ry 
boy 


OB REM LEX KFHFFESS FFF FFE FSFRHERET 

12 REM VARIABLES 

BaLS REM SEXES KEFEELEREKREEEEEEHES 

aoe LET CAPITAL =<S@@4+ INT <*RANDsz5ea8 


G@4@ LET STOCK =32883INT [RANDs58) 
S050 LET SELLPRICE=i@+1INT [RND#S 


SO@6@ LET COST=2+4INT IRNE#S) 
BE7A IF COST :SELLPRICE THEN GO TF 


Se8e LET WORKFORCE=74 INF (RND#Ia 
B@0a@ LET WAGE=12+INT (RNDSSELLPR 


ICEsS5) : 
S29@ LET PRODUCE S=S+INT {RNOs6) 
3118 LET WEEK =@ 


ig 
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S&S resistance 
r 


i 
Bisa LET 2=4 
7: CLS : BORDER 7: IN 


K @ 
350@ RETURN 
We start with the loop from 4@ to 180: 


GOSUB 9000 — This sets up the variables (which change from 
game to game) which determine such things as the number of 
people on your staff, their initial wages, the stock in hand, the 
selling price of Zibbies and so on 


Line 50 increments the variable WEEK by one 


The subroutine starting at 5000 is called several times 
throughout the loop (by lines 100, 12@, 140) to show the 
changing status during the week 


The other subroutines do what the following REM statements 
indicate: PEOPLE (hire/fire, from 6000); MAKE (production, 
from 5130) and SALES (from 4000) 


The final subroutine (UNPREDICTABLES, from 3000) is 
traversed each ‘week’ of the factory’s life, but the elements in it 
may be bypassed, either completely, or in part. The 
UNPREDICTABLES (which include union demands for more 
money, and flash floods which destroy part of your stock in 
hand) are designed to keep the going tough, but are not so 
arbitrary as to destroy the importance of skill in maintaining the 
health of your factory 


To write a simulation, you first need to work out in your own 


mind what is being replicated, and which variables you will emulate 
in the program. Once you've done this, you need to set up the 
starting loop to control the program. My next step, and one which 
you may want to follow, is to create the standard printout (in this 
case, from line 5000) even before you do such things as assign 
variables. You'll discover that setting up the standard printout will 
tell you each variable you need. In this program, as in others in the 
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book, I’ve used explicit names for variables, so you do not need to 
maintain a separate register to tell you, for example, that ZA3 is the 
wages and BB is the stock in the warehouse. This sort of random 
variable naming can lead to great confusion. Although it takes a 
little longer to type in long, explicit names, the trouble it will save 
you ts well worth the time it takes. 

As the printout was the key to writing this program, it makes 
sense to look at it first. Here is part of a printout: 


FACTORY REPORT: WEEK 5 
Capitat on hand is #2657.92 


Your stores hotd 128 Zibbies 
worth $169.65 


They Se&lt For $314.34 2ach 
and COSt H7.41 e@ath to mare 


Workforce is F peopte 

Their wages are G42 each 
and the wage bitl this weer. 
iS #287 


Each person can make 19 Zibbies 
R week, 2 LOtSt HUipUt oF Fo 

The printout tells you which week it is, how much capital you 
have (from which you must pay wages, and buy raw materials), the 
number of Zibbies you have in stock, the selling and making prices, 
the number of people on your staff, their individual wages and the 
total for the workforce, and — finally — the number of Zibbies they 
can each make per week, assuming they all work at 100% 
efficiency (which they rarely do, as you'll discover). 

This printout, or a variation of it, appears throughout the game, 
using colour and flashing to highlight the different elements in it, 
making it easier to read. When you first run the program, you'll see 
the starting parameters that fate has decreed for you, and then the 
program will go to the PEOPLE subroutine, starting at line 6000. 
“How many people do you want to hire?” you are asked. If you 
decide to hire any, they are added to the workforce, the standard 
printout re-appears with the total wage bill recalculated and you 
continue with the next section of your task, determining how many 
Zibbies you will make. 

lf, however, you decide not to hire any more people, you will be 
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asked “How many people do you want to fire?”. This is the point 
where the union becomes troublesome, and dictates just how 
many people they will let you get rid of. Again the standard printout 
will re-appear, with the new workforce total and wage bill 
displayed. 

Having survived the staff situation, you then face production 
decisions (with the subroutine starting at line 5130 —MAKE). “How 
many do you want to make?” you are asked. If you enter zero, the 
program returns to the main printout, and goes into the SALES 
routine, to sell from your stock. If, however, you decide you want to 
try and make some Zibbies, the program will compare your 
production target with (a) the number of people you have working 
for you that week, keeping in mind that each person has a limited 
output; and with (b) the cost of the material used in each one. If you 
do not have enough people, you'll be told (NOT ENOUGH PEOPLE 
is the somewhat clear message) and be asked to enter another 
production target. In a similar way, NOT ENOUGH MONEY will 
come up on the screen if you set a target which will demand more 
raw materials than you can afford. Once you get a target the 
simulation will accept, it will print on the screen at the top “Target 
week 4 is 92” or whatever. After a short pause, the message 
“Total made in week 4 was 86” or however many were made that 
week. 

Too explicit a series of instructions will diminish the pleasure you 
may have running this simulation, so | will stop at this point. After 
all, | want to leave you a few surprises when you get it underway. 
And by now, if you've followed through the explanations given for 
the other games, you should be able to work your way through this 
program without too much trouble. 

This program has been included in this book because sim- 
ulations are one of the very useful areas in which computers can 
serve us. Creating your own simulations, from running a space 
station to a pancake-making works, can be a goad indication as to 
how simulations are created in ‘real life’, and how difficult it is to 
create computer models of real life situations. For example, a real 
Zibbie factory would have to allow for contingencies such as the 
possibility of workers being injured on the job, or not turning up 
because they are sick, or working slowly because it is hot, or some- 
one’s birthday, or Friday, or close to Christmas, or whatever. 
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There could be delays in getting supplies to the factory, or vital 
machinery might break. There could be a fire, an electrical blackout, 
a union lockout... and so on. You'll soon learn the difficulties 
of trying to too closely replicate the reality reflected in your 
simulation. 

That brings us to the end of the games section in the book. It has 
been the largest one in the book because | believe that game 
playing and writing is the surest (and least unpleasant) way to 
develop programming skills. Games also provide some relief from 
‘serious’ computer use. | hope the material in this chapter helps 
with both those aims. Finally, here are some books which you may 
find of interest. 


Suggestions for further reading: 
BASIC Computer Games Ahl, David (ed.) (Creative Computing Press, USA, 1980) 
What To Do After You Hit RETURN (Hayden Book Company, inc., USA, 1981) 


26 BASIC Programs for your Micro Daines, Derrick (Newnes Technical Books/ 
Butterworth & Co., 1982) 


67 Ready-To-Run Programs in BASIC Watson, Wm. Scot (TAB Books Inc., 
USA, 1981) 


Inside BASIC Games Mateosian, Richard (SYBEX Inc., USA, 1981) 


Game Playing with BASIC Spencer, Donald D. (Hayden Book Company, Inc., 
USA, 1981) 


Computer Programs That Work! Lee, J. D., Beech, G., Lee, T. D. (Sigma Technical 
Press, Wolverhampton, 1980) 


Producing Computer Poetry Chisman, Margaret; article originally printed in Creative 
Computing, now available (pp. 106-107) in The Best of Creative Computing, Vol 2 
Ahl. David (ed.) (Creative Computing Press USA) 

Sources of ideas to turn into computer games: 


The Complete Book of Indoor Games Arnold, Peter (ed.) (Hamlyn, 1981) 


The Complete Home Entertainer Brandreth, Gyles; (Robert Hale, 1981) 
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Three-dimensional 
graphics 


Science fiction films like ‘Star Wars’ show computers producing 
complex three-dimensional images, and manipulating them in real 
time. While this Spectrum program cannot produce images of such 
complexity, it does manage to produce 3-D images of a sort, and 
allows you to handle them (by rotation) as if they were real objects. 

The program allows you to draw figures using straight lines of a 
length you choose. The explanation of how to use the program may 
seem a little bewildering, but if you enter the program before you 
begin, then follow through the explanation carefully, you should 
find you gain some real control over the program, and can use it to 
produce quite worthwhile ‘3-D’ images. 

First of all, then, enter this program, then return to the book for 
an explanation of how to use it. 


REM #$¥FFFFFSSFSPESH HAH RREAE 
REM THREEDEE ETCH 


Spee ee ee eae 


18 GO Sue ae 

11 GO SUB leaeae 

15 CLS 

2@ GO BUB 7age 

35 IF FP=1 THEN GQ Te 288 


48 LET RS=INKEYS: TF Rge="" THE 
N GO TQ 4@ ” 

+I LET S$ 1A =k 

d2 LET R=A+1 

43 IF A=255 THEN PRINT "BUFFER 
FULL: STOP 

44 IF RS$="E" THEN Go To iB 

SOQ GO SUB 3eee 

GQ GO SUB 2eae 

VO _ CDCRAW C-PEERKR (0677) ,b-PEER 
(230783 

es GO TO 4e 


aa GO SUB Geeaa 
PQS LET RS=INKEYS: IF Rge="" THE 
NGO TO 2as 
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Go To 18 


LEY S=L2lL4Mah 

LET F=3+N4N 

LET ®&=Se@R (T? 

LET H=SOR {52} 
RETURN 

LET parov eer ay 


LET O=S6 23404 (H#S-N# fel eles 
tH#Q) 
RETURN 


Rg="U" THEN LET Wate 
IF R$="D" THEN LET it=-G 
IF RS="R" THEN LET Ustu-6 
IF R$="L" THEN LET Li=Ut46 
IF Sa ae THEN LET (=t'-G 
RS="F"° THEN LET U=iies 


INPUT “SIZE?"; G 

INPUT "xX UTEWPOINT? "7 
INPUT “Y UIENPOINT? "7M 
INPUT “Z VIEWPOINT?" > N 


HVUeEOVIAMEUMeEOON 1 POPU D NE 


SHaQuugggaggguy ~sugggggmmtats 
-B9SSeR0ESSH6Eo.l.S 895060056 
HH 
a 


UIT AD I COL SH a ak ad Cod ah Cah a Cad EU TA IG TN da a fa fa 


a4 
@Se8 LET A=1 
ao PRINT we Ty . -GET" ec ete Pp “ -<PUuT" * oF 
R’ -RANDOM" 
rea Ge earn =INKEYS: IF Rg="" THE 
30 
Sea IF Rgs=a"G" FHEN LET F=3- GO 
TO Siie2 
SOQ TF Rgsa"P" THEN LET Paw: oo 
FU Sli 
S@93 IF Rs="R" THEN GO Ta seee 
SlBe GO TA Sere 
Sille@ RETURN 
Saag 
Bea GO SUB 7Ree 
EOI LET RS=S51A2 
Sa28 COQ SUB 2eee 
GeS@ GQ SUB 2e0u 
BEd DRAW C-PEER (Soar 7) . DP -PEER 
(WBF) 
SQ50 LET A=R+a 
Sea ITF 22. fo°ER AND Ai oeas TH 
EN GO TO 6e@1e@ 
Sere RETURN 
So90n 
Fea LET W=8: LET tt=@: LET sae: 
GO SUB 2e@ 
FBR PLOT C,o 
a) 


Be RETURN 
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FSeaa 

B@@OQ LET A=21: LET GH=2@: LET LAN 
as LET M=RNDsie@e@: LEFT N=RNDs 
a) 

GE@aB CLS 

SA1@Q GO SUB Geaege 

BG2La PAUSE Se 

Base GO TO Bee 


Make sure the computer is in the CAPS LOCK mode (hold down 
the CAPS SHIFT key, and press the 2 key) before you run this 
program. When you RUN it, the first thing you will see is the 
prompt SIZE? at the bottom of the screen. This prompt wants you 
to enter the size of the lines that go to make up the figures you 
draw with the program. To give you an idea of the scale the 
program is using, the lines in the cube in figure one are of length 20. 
This is a good starting point, so enter 20, then press ENTER. 

The next prompt you'll see is X VIEWPOINT?. For this first run, 
enter 100 for this, and 150 and 20 respectively for the Y and Z 
viewpoints. 

The screen should clear to show you the following: 


‘G' -GET 
‘P’ -PUT 
‘R’ -RANDOM 


These are the three options which are being offered to you. We'll 
start by using the PUT option, which you indicate by pressing the 
“P" key. If nothing happens when you do this, you probably have 
not engaged CAPS LOCK. 

The screen will clear again, leaving a tiny dot in the centre. This 
dot is the starting point of the figure you are to draw. 

The program will now accept six different inputs: U(p), D(own), 
L(eft), R{ight), Forwards), or B(ackwards). You just press the initial 
letter of the direction in order to move. Don't linger too long on any 
key, or you may end up drawing a line longer than you intended. 
Play round with the program for a while, pressing the direction keys 
at random, then return to the book. 
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Now try this sample drawing: 


Figure one: aa 


First return to a blank screen, either by typing ‘E’ (for ‘END') as a 
direction to be moved in, or start again with RUN. Either method 
will get you back to the SIZE? prompt. Then use the same figures 
as | gave before, to get to GET/PUT/RANDOM display. Enter ‘P’, 
and we're ready to go. 


Type ‘U'. This will draw a line from the dot to about three 
quarters of the way up the screen. Type ‘L’. this will join aline going 
to the left to the top of the previous line. Then go down, by pressing 
‘D’. You should now have something looking a bit like a gravestone 
on the screen. We can now join the two ends up to make a square 
by going ‘R’ight. Now, move forward, with ‘F’, and carry out the 
above procedure again. You should now see that we only need to 
add three more lines, and we will have a three dimensional cube, as 
in figure two. 

To reach the points where the extra lines are to be drawn, we will 
have to draw over some of the lines already on the screen. 

The keypresses required are: 


U, B, F, L, B, F, D, B, F and R. 


If you watch the screen closely as you enter these, you should 
have a good idea of how the Spectrum is following your 
instructions. It may be worth your while pressing ‘E’ at this point 
and running through the whole procedure a few more times until 
you can draw a cube without any mistakes. 
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Now, to continue our investigation of 3-D graphics, use 'E’ to 
return to the SIZE? Prompt, and answer as follows: 


SIZE? 10 

X VIEWPOINT? 100 
Y VIEWPOINT? 150 
ZVIEWPOINT? 200 


Then choose the GET option from the last menu. 


You will find that your cube has been drawn automatically, at a 
reduced size. If it has not been drawn, you must have used ‘RUN’ 
to get to the ‘size’ menu, and not the ‘E’ option. The program 
remembers the keypresses you made in the last shape you draw, 
and if you run the program from scratch, as far as the Spectrum is 
concerned there is no previous drawing. You may like to try using 
‘E’ and the ‘GET’ option to redraw the cube several times, giving 
different numbers in reply to the viewpoint prompts. 


How does it work? 

The program always draws your object starting from the co- 
ordinates 9,0,0 in three-dimensional space. Your answer to the 
VIEWPOINT prompt tells the computer from where in space you 
want the image drawn. The menu (GET/PUT/RANDOM) is asking 
whether the shape drawn should be constructed from keypresses 
from the keyboard (‘P’) or keypresses stored in the program from 
the last picture ('G’). The ‘R’ option starts an endless sequence of 
drawing the object from random co-ordinates and after pausing, 
drawing it from different co-ordinates. Obviously the ‘R’ option, like 
the ‘G’ option, requires that there is already an image in memory. 
Figure two shows a drawing which you may like to try and 
duplicate. 

Figures three to six show another, rather simpler, image drawn 
from a number of different viewpoints. Figure three is the original 
figure. Figure four is the figure drawn with a smaller ‘SIZE’. Figure 
five is the figure drawn from one end and figure six is the figure 
drawn from underneath. Because the program only produces ‘wire 
frame’ images it is a little difficult to decide whether figure six is 
from underneath or on top. You will find that complex figures are 
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best drawn with a small step size, such as 10, to allow you to get 
more detail into the picture. 


Figure two: Pl 


Figure three: 


Figure four: Figure five: Figure six: 


oN 

\ ‘ 
4 
wy coe 
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The program is made up of a number of subroutines, which will 
be covered first, and then I'll go on to talk about the section of code 
from lines 1 to 210. 


Subroutine 1000 — New viewpoint. This subroutine takes the 
new viewpoint, in L, M and N, and using these figures, sets the 
variables S,T,Q and H. These variables are required later by the 
plotting algorithm. 


Subroutine 2000 — Evaluate two dimensional co-ordinates. This 
subroutine returns, in C and D, the screen co-ordinates 
corresponding to the point U,V,W. It uses L,M and N, and all the 
constants defined in subroutine 1000. The constants 128 and 96 in 
lines 2010 and 2020 are to centralize the image, to ensure the point 
0,0, is in the centre of the screen. 


Subroutine 3000 — Alter co-ordinates. The current co-ordinates 
U,V,W are incremented or decremented by a set amount (G) for 
each keypress when the direction keys are used. This subroutine 
carries this out, with the keypress in R&. 


Subroutine 5000 — Menu. This subroutine carries out all the initial 
dialogue with you. Lines 5010 to 5040 ask the now familiar starting 
questions, line 5061 prints the menu, and line 5070 gets the choice 
for the menu. The variable A in line 5060 is the pointer into the 
string where all keypresses are stored for the ‘G’ and ’R’ options. 
Lines 5080 to 5093 decode the keypress. If ‘G' was selected, then 
P is set to true, if ‘P’ is selected, P is set to false. If the random 
option is called for, then the subroutine at line 8000 is called. 


Subroutine 600@ — Auto draw. This subroutine automatically 
draws the figure stored in SS. It is used by the ‘G’ option. 
Line 6000: Calls subroutine 70@@, which places the initial black dot 
in the centre of the screen. 
Line 6010: Gets the next character of S% in R$, ready for the call to 
3000 in line 6020. 
Line 6030: Works out the new co-ordinates for drawing to. 
Line 6040: Does an ‘absolute’ DRAW to these new co-ordinates. 
The two PEEKs hold the current X and Y co-ordinates of the 
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Spectrum, and so if these are subtracted from the absolute co- 
ordinates to be moved to, an absolute, rather than relative draw is 
achieved. This technique can be applied to any program where the 
normal form of the DRAW statement is inappropriate. 

Line 6050: Increments the pointer in S%, so that the next character 
can be examined. 

Line 6060: If the character is an ‘E’, indicating the end of the 
drawing, then RETURNs. Also RETURNs if the string S% is going to 
be exceeded when the next line is drawn. 

Line 6070: Loops back for the rest of the characters in S$. 


Subroutine 7000 — Moves the current co-ordinates to 0,0,0 and 
plots a point there. 


Subroutine 8000- Sets A,G (the size),L,M and N, then draws the 
figure (line 8010), PAUSEs, then goes back and draws it again from 
different co-ordinates. 


Line 5: Dimensions S§. 

Line 10: Calls subroutine 5000. 

Line 11: Calls subroutine 1000. 

Line 15: Clears the screen. 

Line 20: Calls subroutine 7000. 

Line 35: Goes to line 200 if the ‘G’ option was used. 
Line 40: Gets a direction keypress. 

Line 41: Stores the keypress inS$. 


Line 42: Increments the pointer A. 

Line 43: Stops the program if S$ has been executed, i.e. 
if more than 255 keypresses were made. 

Line 44: Returns to the starting menu if 'E’ was pressed. 

Line 50: Acts on the keypresses, 

Line 60: decodes the co-ordinates and 

Line 70: draws to the new position (see description for 
line 6040); . 

Line 80: Loops back for more keypresses. 


Line 200: Calls subroutine 6000 for GET option, 
then, at line 205, waits 
fora keypress, then loops back at line 21@ for the 
main menu. 
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Introduction to machine 
code 


You may recall at the very start of the book we spoke of computer 
languages in ‘levels’, with high level languages, like BASIC, being 
fairly close to English, and lower level ones being closer to the 
actual language the microprocessor, the thinking part of your 
computer, uses. The language used by the microprocessor (the 
Z80 in a Spectrum) is the language we call machine code. If you talk 
to your Spectrum in BASIC, part of the computer has spent time 
translating the BASIC message into machine code, so the 
microprocessor can understand it. Now this translation can take 
some time, which is why BASIC is a fairly slow language. As we'll 
demonstrate now, machine code is very much faster. 

Type in, and run, this program: 


® CLEAR 32000 
20 RESTORE 
30 FORa=0TO 15: READ x: POKE 32000 + a, x:NEXTa 4 
40 DATA33, 255, 63,01, 01, 24, 22, 255, 35, 11, 120, 177, 
200,114, 24, 248 
50 CLS: PAUSE 20: RANDOMIZE USR 32000: 
PAUSE 20: GOTO 50 


This demonstrates how quickly the screen can be filled. Now 
compare it with the BASIC equivalent: 


10 FORa=1 TO 704: PRINT “*";: NEXT a 


NOTE: It is not fair to judge the lengths of these two programs as, 
for the main part, the first program is far longer than necessary (we 
will see why later). 

The computer itself only understands long streams of digits. For 
example, one instruction for the Z80 is 00111101, which means 
absolutely nothing to most of us. (Note that the Z80 accepts eight 
digit codes, which means that the maximum number it can handle 
is 11111111 or 255 in base 1@, the number system we use in 
everyday life). This ‘stream’ of ones and noughts is a binary 
number. A number in our normal system, base 10, has digits 
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between @ and 9, and a binary number, a number in base 2 has 
digits between @ and 1. If we look at anumber in base 10, the right 
most digit is the units, the next digit is 1’s (or ten to the power 1), 
the next being 100’s (or ten to the power of 2), and so on. For 
example: 101 is equal to 1 unit, @x10 and 1x10. 

Base two works on the same principle. The first digit on the right 
is again the units (2 to the power of 0), the next digit being 2's (2 to 
the power of 1) and the next digit being 4's (2 to the power of 2). For 
example, in binary: 101 is equal to 1 unit, @x2 and 1x4 which is 5 in 
base 10. So if we take 11111111, whichis the highest number that 
the Z80 can handle it looks like this: 


1 times 1 
+1 times 2 
+1 times 4 
+1 times 8 
+1 times 16 
+1 times 32 
+1 times 64 
+1 times 128 
= 255 


While we are on the subject of binary numbers, it would be 
useful to clear up one topic which can cause a lot of problems. 
When talking about computers we often hear the terms ‘bit’ and 
‘byte’. A bit is one of the digits of the binary number. For example, 
in the number 00111019, there are 8 bits. We can talk about parts 
of a binary number by referring to the bits which make it up. Bit 0 
{the right most digit) is, in our example, 9, and bit 3 (the 4th digit 
from the right} is 1. Byte is the term for a number which has 8 bits, 
so 10101101 is a byte. A bit has a value of 1 and the maximum 
value of a byte is 255 in base 10. We use 8 digit codes rather than 6 
or 1@ digit ones because the Z80 microprocessor is designed as an 
‘8-bit’ processor, which means, it can handle 8 bits worth of data 
(numerical information), no more and no less. So, as far as data is 
concerned we are restricted to a maximum of 255. You can test 
this by typing POKE 100, 365. The computer will reject it and give 
an error message. 

Let us look now at the way in which we command the computer 
when POKEing. We start with the address of the particular byte in 
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memory. and follow this with the number to be POKEd into it. We 
can think of the computer's memory as a lot of little boxes all of 
which have their own binary number (the address of the box), and 
something in it (the contents). 

As we said alittle earlier, with only one byte, 8 bits, the maximum 
number we can have on the Spectrum is 11111111 or 255 (base 
10). We can live with that when it comes to the contents, but 
imagine what it would be like if everybody's house address was 
between @ and 255. What we do for computer locations is very 
similar to adding street names to house addresses, but they are 
actually numbers. For example, after going through the first 
256(0-255) addresses, we say that the ‘street name’ is 1 and go 
through the numbers 0-255 once again. So the final address looks 
like this: 


00010110 01011010 
‘street name’ "house number’ 


We can now see that because there are 256 street names and 
256 house numbers we have 256x 256= 65536 addresses. 
Technically this is known as a ‘16-bit’ number, and has many 
advantages, mainly because we can actually think of it as one long 
16 bit number. For example: if we have a number such as 
10101101 and we wish to add it to 10010001 we find that it 
overflows. 


10101101 
10010001 
1:00111110 ~ 


OVERFLOW 8 bit number 
But if we use 16-bit registers then the overflow is no problem: 


Q0000000 10101101 
00000000 _ 10010001 
00000001 00111110 


This means that we can quite happily multiply two numbers with 
the knowledge that the result would have to be over 65535 before 
the overflow comes into operation. 

Going back to addresses, we can see that this is why, with the 
Z80 which uses 16 bit address codes, the maximum number of 
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addresses it can cope with is 65535. Which, if you divide by 1024 (1 
kilobyte or 1K) equals 64K which is the maximum size of memory 
of a Z80 computer. Note that this is true of the ZX Spectrum which 
haS a maximum memory of 16K ROM and 48K RAM 
(16+48=64k). 

RAM stands for Random Access Memory, and ROM stands for 
Read Only Memory. If we consider a ‘location’ in memory as a 
house, we can say that with RAM you can look through the 
windows and see the contents and open the door and change it. 
But with ROM you can look through the windows and ‘read’ it, but 
the door is locked so you cannot go in and change it. 

Handling binary numbers is far too complicated for ordinary use. 
This is where our third and most important base comes in, base 16. 
With this base, an 8-digit binary number can be written down to a 
2-digit base 16, or hexadecimal number. You'll recall that a number 
in base 2 has digits of @ and 1, and with base 10 anumber is written 
with digits between @ and 9, so base 16 should have digits 
between @ and 15. However, we haven't got any digits bigger than 
9. We use the first six letters of the alphabet: 


10=A 
11=B 
12=C 
13=D 
14=E 
15=F 


The simplest way of converting an 8 bit binary number into 
hexadecimal or base 16 is to separate the 8 bits into two groups of 
4 bits and convert each group into a single character and then 
combine the two characters. For example: 


10111010 base 2 


x 
1011 1010 
\ A 
11=B  10=A 
\ # 
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Hence we can now convert any value of a byte into a two digit 
hexadecimal number. This is the most convenient, and the most 
common way of representing a single byte. 

The table below shows the equivalent binary, decimal and 
hexadecimal numbers. 


DECIMAL HEXADECIMAL BINARY 
Q 0 0000 
1 1 0001 
2 2 0010 
3 3 0011 
4 4 0100 
5 5 2101 
6 6 0110 
7 7 0111 
8 8 1000 
9 9 1001 
10 A 1010 
11 B 1011 
12 Cc 1100 
13 D 1101 
14 E 1110 
15 F 1111 


Now that we basically understand the mathematics of machine- 
code (the boring bit), we can move into actual programming. 

The 280 itself only understands numerical codes rather than 
actual instructions. What we do is write our program or routine 
using a ‘mnemonic’ or instruction word, and then convert this to a 
number or jgroup of numbers which can be POKEd into the 
computer in their decimal form, and executed by a USR routine. 
Forexample, enter this into yourSpectrum: 


CLEAR 32000 


which clears a space from location 32000 to the top of RAM (32767 
on the 16K and 65535 on the 48K). This also protects your routine 
from the computer writing over it with a BASIC program or NEWing 
it. This is the first address at which our machine code routine can 
be safely situated, 32000. The next problem is to get our machine 
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code into this area of RAM. The way we do this is simply by 
POKEing the values in. 


Try this: 


POKE 3200, 1 (then press ENTER) 
POKE 32001, ® 

POKE 32002, 0 

POKE 32003, 201 


Now type PRINT USR 32000 and it will print @. POKEing 
numbers in like this, is ideal for just a few numbers, but if you have 
30 or more it gets tedious. There are two ways of simplifying the 
task: 


(i) aFOR/NEXT loop: 
10 FORa=32000TO32003: INPUTx:POKEa,x: NEXTa 
(ii) UsingDATAstatements: 


5 RESTORE 
10 FORa=32000 to 32003: READ x: POKE a,x: NEXT a 
20 DATA1,0,0,201 


Both these methods have their particular applications, but | 
prefer the second method using a DATA statement, because you 
can easily look at, and, if necessary modify it. 

Here is a program for loading machine code into the Spectrum: 


10 INPUT “Start address?” ;start 

20 CLEAR start 

25 RESTORE 

30 LET start=1 + (PEEK 23730 + 256*PEEK 23731) 

40 FOR a=start TO 65535 (use 32767 on a 16K Spectrum) 
50 READx: IF x=999 THEN STOP 

60 POKEa,x 

70 NEXTa 

80 DATA... you put your routine here... 
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Let’s look at the program line by line, to see how it works: Line 
10 asks for the start location of the program. We discussed the 
start location earlier. 20 CLEARs space at, and above, this location, 
25 RESTOREs the DATA pointer to the first element of DATA. 30 
reassigns the variable ‘start’ to its original value. This is necessary 
because CLEAR wipes allt variables. 4@ starts a loop between our 
start location and the maximum possible address on the Spectrum 
(65535 on a 48K machine, 32767 on a 16K one}. 50 READs the first 
element of DATA and checks whether it is 999, which is an illegal 
code for POKEing, so we use it to identify the end of the DATA. 60 
loads or POKEs the address with the contents (x) which have just 
been read from the DATA statement. 7@ repeats the loop. 80 holds 
the decimal values of all the instructions in your routine, and ends 
with a 999. It is not necessary to have all the DATA in one line. You 
can use as many as you like, subject to available memory. 

So this routine loads the machine code into RAM. To run it we 
either include the line PRINT USR start or RANDOMIZE USR start 
within our program. USR is a BASIC command (which you get from 
the L key), and stands for User SubRoutine. 

There are no variables, as such, in machine code. Instead there 
are ‘registers’ which can be loaded, read and manipulated. Here is 
a simple sketch of the Z80 registers: 


a 


BANK BANK 


in 


8 bits 8 bits 


8bits 8bits 


Introduction to machine code 197 


Each of the single letter registers (B,C,B’, C’,D and the like) are 8 
bit or single byte registers but are designed to be combined to 
make 16 bit registers. The registers in bank zero, except for F, can 
be used by you in any way you like. F is used by the computer for its 
own operations, and therefore should not be altered. 

Register pairs 1X and 1Y are index registers which we'll leave 
alone for the time being. SP is the Stack Pointer which is used by 
the computer, but can be used to advantage by an experienced 
machine code programmer. 

PC is the Program Counter which holds the location in memory 
where the last executed instruction is situated. Register R is 
another one used by the computer, and has an apparently random 
value. It is possible to change this value, but because it is used fora 
specific purpose this is rarely done. 

The registers in bank one can be used by you, but are not 
particularly easy to manipulate. For the time being, we will 
concentrate on the use of the registers in bank zero, except for F 
(that is, A,B,C,D,E,H and L). 

As | said earlier, all these registers are simple 8 bit/one byte 
registers, with a maximum value of 255. However, Z80 machine 
code was written so it is simple to create register pairs by 
combining B andC, DandE, andH and L (BC, DE and HL) which can 
then be treated as 16 bit registers. As you may recall from our 
earlier discussion, this gives us the range zero to 65535. 

From discussing the existence of register pairs, we'll move to an 
explanation of how to put what we want into them. To loada single 
register with a number we use an instruction of the form: LD 
register, number. ; 

So, if we wanted to load register A (the Accumulator, as it is called) 
with the value 1, the machine code instruction would be: 


LD A,01 


We can do the same thing on any of the single registers: A, B, C, 
D,E,HorL: 


LD B,255 


The number loaded into a register must lie between zero and 255. 
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If we then decide to treat D and E as a register pair (DE), we can 
handle it in the same way: 


LD DE,1025 


In this case we can use any number in the range zero to 65535. 


We must remember that we have to convert a statement of the 
form LD B,255 into a decimal code before we can put it into the 
computer. Here is a table of LD commands, and their codes, with 
xxx being a number between zero and 255: 


LD A,xxx 62 xxx 
LD B,xxx 6 xxx 
LD D,xxx 22 Xxx 
LD E,xxx 30 xxx 
LD C,xxx 14 xxx 
LD H,xxx 38 Xxx 
LD L,xxx 46 xxx 
LD BC, xxx xxx Q1 xxx Xxx 
LD DE, xxx xxx 17 XXX XXX 
LD HL, xxx xxx 33 XXX XXX 


Not only can you load a register with a number, but you can also 
load one register with the value of another. For example LD A,B 
means load the register A with the value of register B. 
Unfortunately, there are no commands to load one register pair 
with the contents of another. Therefore, if you want to load HL with 
BC, it is necessary to do the following: 


LD H,B 
LD L,C 


Note that there are no line numbers, as such, in machine code. 
So, if you want to JumP or perform a loop, you have to JumP to an 
address. But before we do any JumPing, there are a couple of other 
things you can quite easily do to registers. 
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For example, if you want to subtract a number from register A, 
you do this: 


SUB A,@1 


which means LET A=A — 1 or SUBtract 1 from A. You can also 
subtract other registers from register A: 


SUB A,B 


The codes for all the instructions are listed in the Spectrum 
manual (pp 183 to 188 of the first edition). You'll also find them in 
most machine code books written for the Z80 processor. 

After you've called a machine code routine, that is, after you've 
told the computer to PRINT USR...or RANDOMIZE USR..., 
you need an instruction in machine code to tell the computer to 
return to using BASIC. It is much the same as when you use the 
GOSUB command in BASIC; you need a RETURN to get back to 
the main program. The command you use to get back to BASIC 
from machine code is RET, which has a decimal code of 201. 

There's one more thing I'd like to point out before you'll be ready 
to embark on the rewarding task of actually writing your own 
machine code routines. If you type PRINT USR xxx, the number 
printed will be the value of the register pair BC after the routine. So 
if we carried out the following routine: 


LD B,@ 
LD C0 
RET 


which we could do by using the machine code loader given earlier, 
and the values 06,0/14,00,201,999; and then entered PRINT USR 
32000, we'd get the value of the register pair BC, which — not 
surprisingly — will be zero (as the routine has loaded BC with zero). 

Now try playing around with the values of the 2nd and 4th bytes. 
These are the ones which control B and C. The value for B is the 
number of 256’s, and C is the remainder (between @ and 255). 
When you work out the code for a register pair loading (LD HL, xxx 
Xxx) it is important to remember that it takes the value for the 
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remainder (L or Low Byte) first and then the number of 256’s (H or 
High Byte). For example, if the number of 256's is zero, and there is 
a remainder of 100, H equals zero, and L equals 100. Using 
mnemonics we'd write LD HL,00@ 100 which in decimal would be 
33 100 000. Note that the numbers are swapped around when it 
comes to coding them in decimal form. 

Try this: 


LDB,O Q6 00 
LDC,@ 1400 
LDA,12 6212 
SUBA,6 21406 
LDC,A 79 
RET 201 


What this is doing is: 


LD B,O Load B with 0 

LDC,0 Load C with @ 

LDA,12 Load A with 12 

SUBA,6 = Subtract6 fromA 

LDC,A Load C with the value inA 
RET Return to BASIC 


The BASIC equivalent would be: 


LETB=0 
LETC=0 
LETA = 12 
LETA=A-—6 
LETC=A 
RETURN 


The BASIC version takes over 60 bytes of memory. The machine 
code one takes just 10 bytes, and is much faster. 

This brings us to the end of this introduction to machine code. It 
was not intended to turn you into a master machine code 
programmer, but rather to give you a basic understanding of the 
principles involved, and to give you a basis to build on. 
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Suggestions for further reading: 


Z80 Instruction Handbook Nat Wadsworth (Scelbi Publications, USA, 1978). This 
booklet explains, in easily understood terms, the capabilities of the Z80's instruction 
set. It serves as a reference to the standard mnemonics, machine code and usage 
for each type of instruction provided in the 280 CPU. Mr Wadsworth says: “It is 
meant to serve as a practical guide for the novice, intermediate, or professional 
programmer who has a requirement to work at the machine or assembler language 
level with a Z80 based microprocessor”. 


Z80 Software Gourmet Guide and Cookbook Nat Wadsworth (Scelbi Publications, 
USA, 1979) This book contains a complete description of the Z80's instruction set, 
and a wide variety of programming information in the form of useable routines. 


202 


A guide to better 
programming 


In computer programming, as in most areas of human 
accomplishment, a value system has been developed which 
classes certain techniques as ‘good’, ‘not so good’, or ‘bad’. In the 
early days of working with your Spectrum, the fact that you could 
get a working program which did, more or less, what you intended 
is a significant achievement in itself. But as you spend more time 
programming, you may perhaps think it worthwhile to try and 
improve your technique. Doing this will not only make programs 
easier to debug, but it will be much simpler to work out which 
particular section of code is supposed to achieve what end. If you 
want to further develop a program later on, a properly structured 
one will be much easier to work on than one which is a convoluted 
mass of leap-frogging GO TOs, and long strings of IF THENs. A 
well-written program is also easier to use. 

However, the rules are not engraved on tablets of stone. | do not 
accept all of them unquestioningly, and | do not suggest that you do 
either. The use of unconditional GO TO commands, for example, is 
considered the height of poor taste in programming, but ina BASIC 
such as that provided on the Spectrum which does not have 
procedures, REPEAT/UNTIL or DOMWVHILE, GO TO can often not 
be avoided. However, it is worth looking at any unconditional GO 
TOs in your programs to see if they can be avoided, either by 
moving whole blocks of code to another position within the 
program, or by use of a subroutine, or a FOR/NEXT loop. 

There is another example of ‘the law of good programming 
practice’ which can often be safely ignored on the Spectrum. It is 
considered pretty bad form to jump out of FOR/NEXT loops 
without letting them run their course. On some computers, such 
as the BBC Microcomputer and the Acorn Atom, it is impossible to 
jump out of too many loops in a program without the whole thing 
crashing, but you can do so with impunity, as many times as you 
like, on the Spectrum. And an uncompleted FOR/NEXT loop is a 
lesser sin than a lot of IF X = 3 THEN LET X =X +1: GOTOY 
statements which are often the only alternative to allowing FOR/ 
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NEXT loops to be exited prematurely. 

Keep in mind then, when reading the rest of this chapter that the 
‘rules’ are more of the nature of suggestions, or observations. 
Read them, and think about them, but then feel completely free to 
ignore them if you think they are not the best idea to apply in a 
particular programming situation. However, the rules would not 
have evolved unless there were good reasons, So you may benefit 
from trying to apply them before you decide to discard them. 

Many books on programming suggest you Start with a flowchart 
which links boxes and diamonds containing decisions the 
computer must make with lines showing the flow of the program 
when it is running. Although itis not important to produce elaborate 
flow diagrams, you may well find that a rough flowchart is helpful in 
sorting out in your own mind, before you actually start punching 
code into your Spectrum, exactly what it is you want the program 
to achieve. 

Sometimes a series of key statements, perhaps linked by lines 
and arrows, is all you'll need. Such a series of statements for a 
BREAKOUT type of program, for example, might read: “Set up 
variables; print the initial bricks at the top of the screen; move the 
ball; read the keyboard to see if the player wants to move the bat; 
check If the ball has hit a wall and if it has deflect it; check if the ball 
has hit a brick and if it has erase the brick and increment the score; 
check if the ball is at the bottom of the screen and compare its 
position with the position of the bat; if the two coincide, let the ball 
bounce upward at a randomly-determined angle, if not, decrement 
the ball count by one, and see if the available balls have been used 
up; if so, go to the end of the game, if not, go back to the line which 
moves the ball, and continue cycling.” If you wanted to, you could 
write a Breakout program based just on this outline. If you started 
to write the program without any outline at all, you might get to the 
end and realise when you first ran it that you had left something 
quite important out. You would then either have to try and squeeze 
itin between other statements, add an ugly GO TO to put it at the 
very end, or try and get around it some other way. 

Every time the Spectrum comes to a GO TO or a GO SUB, it has 
to search the whole program from the very first line, line by line, 
until it finds the one designated. Therefore, the later in a program 
the line appears, the slower the program will run. The speed is only 
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affected very slightly, but in a moving graphics program every delay 
can make the program less effective. Therefore, you should put 
often-called subroutines as close to the beginning of the program 
as you can. When the speed of the program is important, you could 
start the program with a REM statement giving the program its 
title, with the second line a GO SUB to, say, line 9000 where the 
variables would be initialised, and any instructions to the user could 
be given. This has two advantages. Firstly, it means that the 
computer does not have to go through all of the initialisation and 
instruction routine every time it searches for a GO TO or GO SUB, 
and secondly if you find — while writing a program — that you have 
left out a variable which is needed, you can easily add it to the end 
of the program before the final RETURN, rather than having to try 
and squeeze it in near the beginning. 

Another aim to keep in mind when writing a program is that 
anyone using it should know, without doubt, what they are 
supposed to do. The program should either contain clear 
instructions, or they should be provided in some form with it. A 
combination of written instructions on a sheet of paper, with a 
condensed version of them (such as telling the user which key to 
press to get which response) within the program is probably better 
than avast sheaf of instructions actually within the program. This is 
not so important for a program intended solely for your own use, 
but is vital for programs which will be sold, or otherwise supplied 
for other people to run. 

It is also important to add ‘mug traps’ into your programs, to trap 
erroneous input before it causes a program crash. Ways of doing 
this are discussed in the education chapter and mentioned in other 
places in the book. Techniques which allow the user a chance to 
examine input as entered before it is finally accepted by the 
program (such as in several programs in the business chapter) are 
important in programs where a great deal of information must be 
entered. A final check, and the chance to correct information which 
has been accepted, is also a good idea. Again, many of the 
programs in the business chapter include this facility. 

Further to the above, the program prompts should be fairly clear. 
A flashing cursor at the bottom of the screen shows that an input ts 
expected, but unless something is either printed on the screen, or 
included within the input statement, the user may be ata loss as to 
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what must be entered. A separate written list of requirements in no 
way compensates for proper user prompts within the program. 
Many programs written on the Spectrum's predecessor, the ZX81, 
could not afford the luxury of explicit user prompts, due to a 
shortage of memory, but this excuse is generally not applicable to 
the Spectrum. 

REM statements, explaining what the following section is 
supposed to do, can help keep a listing transparent, and ensure 
that when you return to it after a break, you know what each 
section of the program is supposed to be doing. In the education 
section, the CATS AND THINGS program shows the correct use of 
REM statements. Looking at the REM statements alone tells you 
just about all you need to know about the program. If you needed 
to, you could probably construct the whole program yourself just 
from the REM statements: CHOOSE AND FORM OBJECT; PRINT 
RND NO OF OBJECTS; CORRECTION SEQUENCE; PRAISE; 
SINGLE KEY INPUT; DATA. There is no doubt that a program 
which includes REM statements is easier to unravel than one 
which does not. 

Once you've worked out what your program is meant to do, and 
have written a list of the main parts of the program, make a list of 
the parts of each part. By breaking down each routine into smaller 
routines, you'll find the program practically writes itself. You will 
also be alerted to possible errors and omissions, even before 
you've entered a single line of code. It may be worth keeping a 
separate sheet of paper on hand while you're doing this, to note the 
variables which will be needed. Then, when you come to set up the 
‘assign variables’ section of your program, you'll already have a list 
of the ones you need. 

You'll find it easier to work out what is happening in a program if 
you use explicit variable names, like SCORE for score, and 
HISCORE for high score, and so on. Although these take a little 
longer to type than do single letter variables, they minimise the 
chance of using the same letter twice within a long program for 
different things, which can cause hard-to-trace program 
breakdowns. Longer variable names also, of course use up more 
memory than do single letter names, but this is unlikely to be a 
Problem with most programs you write on the Spectrum. You'll 
see in several of the business programs, such as FINANCIAL 
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MODEL, how useful explicit variable names can be. In this 
program, for example, variable names include TOTAL, AVERAGE 
and NUMBER. 

In general, do not re-invent the wheel. Although you should not 
steal or adapt programs and then try to pass them off as your own, 
there is little point in spending hours of programming time working 
out, for example, a numerical sort routine, when a number of 
suitable routines are already available in publications. It is quite 
likely, anyway, that you'll end up producing an identical routine to 
one which you could have lifted or adapted in the first place, as 
there is a limited number of ways to carry out certain tasks. This 
suggestion only applies if you are in a particular hurry to get a 
program finished. The satisfaction you will gain by writing a routine 
from scratch, no matter how standard it is, and the greater insight 
you are likely to have into its operation, will more than repay the 
time invested in most cases. So, if you have time, re-inventing the 
wheel may be worthwhile. 

Many programmers become proficient fairly quickly in using 
certain parts of Spectrum BASIC, but once they have mastered 
this, they put the manual away and do not continue exploring the 
other statements and commands available in the language. No 
matter how familiar you become with your Spectrum, and its 
version of BASIC, you should look through the manual (and this and 
other books on the computer) from time to time, just to see if there 
is some aspect of it which you have either misunderstood, or of 
which you know nothing. 

You may find it easier, and more instructive, to mentally ‘run’ 
parts of a program as though you were the computer, than it would 
be to just press RUN. Start at the beginning of the program, and 
follow the instructions as you come to them. When you are acting 
as the computer in this way, you'll often discover clumsily written 
routines or ones which are potential trouble spots, which might not 
show up when the Spectrum is running the program. ‘Hand- 
running’ a program is also a good time to determine if, at any point, 
the computer will try to do something like divide by zero which 
would cause the program to halt with an error message. 

Make sure the program output is clear to the user. You cannot 
write a program assuming that you'll be looking over the user’s 
shoulder every time the program is run. A program which needs 
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you to say things like “That figure in the top right hand corner is the 
number of attempts you've made so far to guess the answer” or 
“The first number you see is the result of the year’s sales and the 
second is projected sales for the second month” could hardly be 
described as well-written. 


The suggestions put forward in this chapter fall into two main 
areas: 

—Thinking before starting to program; and 

—Working out how the program interacts (both in accepting input, 
and in outputting results) with a user who did not write the 
program. 


If you carry out your programming with the intention of doing the 
best you can in both these areas, you're likely to find the quality of 
your programming work improves almost immediately, and will 
continue to improve. 


Suggestions for further reading: 


The Programmer's Book of Rules Ledin, George and Ledin, Victor (Lifetime 
Learning Publications, USA, 1979) 


BASIC Programmer's Notebook Savage, Earl R. (Howard Sams & Co., Inc., USA, 
1982) 


BASIC With Style Nagin, Paul A. and Ledgard, Henry F. (Hayden Book Company, 
Inc., USA, 1978) 


Guide to Good Programming Practice Meek, Brian and Heath Patricia (eds) (Ellis 
Horwood Ltd./John Wiley & Sons, 1980) 
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HISTORY 

Your Spectrum is one of the latest stages in the long road which 
man has travelled in his attempts at building calculating machines. 
The earliest ‘machine’ was probably the abacus, which used 
parallel rods ona frame. The position of beads on the rods indicated 
a particular number. The abacus was used up until very recently, 
when it was superseded by the pocket calculator. 

John Napier, from Scotland, is one of the earliest figures we can 
identify who contributed to the production of ‘calculating 
machines’. Napier invented what became known as “Napier's 
Bones", nine four-sided segmented rods which allowed 
multiplication to be performed by adding together numbers 
displayed on the rods. The English clergyman, William Oughtred, 
developed a primitive slide rule in 1621, which multiplied numbers 
—as do all subsequent slide rules — by adding lengths related to the 
logarithms of those numbers. 

Later in the 17th century, Blaise Pascal developed a method of 
adding numbers together using interlocking wheels. He put the 
wheels in a box, with little windows to display the result of a 
calculation after you ‘dialled’ the numbers you wished to add. 
Gottfried Leibniz, a contemporary of Pascal, worked out a way to 
mechanize multiplication. His method was so good it was still 
being used in calculating machines 250 years later. 

In 1792, Charles Babbage was born in Devon. He is a major 
figure in the history of computers. In fact, many say he invented the 
very first one. Babbage was unhappy with the mathematical tables 
available in his day, and tried to build a ‘difference engine’ which 
would work out more accurate ones. He was let down by the 
inability of the engineers of his day to build parts to the accuracy 
required. Babbage lost interest in his difference engine, and began 
the construction of an ‘analytical engine’ which, if it had worked as 
planned, would have been the first computer; a calculating 
machine which could carry out any kind of calculation, and which 
would be able to make decisions on what it would do next as a 
result of results obtained during the calculation. 

The mathematics which lies behind computers’ ability to make 
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decisions is called Boolean algebra. It was devised — long before 
present-day computers were conceived — by the English 
mathematician and logician, George Boole. In 1890, punched cards 
were used for the first time, to record and tabulate an American 
census. The card system was developed by Herman Hollerith, who 
formed a company to sell his system. The company prospered, 
swallowed up competitors, and eventually was renamed the 
International Business Machine Corporation, now the biggest 
computer company in the world, IBM. 

in the 1870's, a British physicist Lord Kelvin developed a device 
to predict tide times, and later suggested that a machine which he 
called the ‘differential analyser’ could be built which would solve 
not only tide prediction problems, but general problems associated 
with the solution of differential equations. Such a machine was 
built in 1930 by a professor at the Massachusetts Institute of 
Technology, Vannevar Bush. Although the machine worked, Bush 
realised that there was no future in mechanical calculating 
machines, and replaced parts of his machine with valves. The 
modern computer moved another step closer to reality. 

In the 1940's, George Stibitz, who was working for Bell 
Telephone Laboratories, discovered that binary information 
(information stored as a pattern of ones and zeroes) could be 
represented and manipulated by a series of switches, with ‘on’ 
representing one, and ‘off’ representing zero. A device he rigged 
up using telephone relays and little lights was the world’s first 
electronic calculator, and pointed the way to the use of binary 
arithmetic in computers. Nearly all modern computers use binary 
arithmetic, which the computer generally translates into numbers 
and letters we can understand. 

Although the idea of the first computer was outlined in 
Cambridge, England in 1832, it was not until 1944, in Cambridge, 
Massachusetts, America, that the idea actually came into being. 
The first fully automatic calculating machine, the Automatic 
Sequence Controlled Calculator, was completed in that year by 
Howard Aiken of Harvard, working for the International Business 
Machines Corporation. 

Early computers took up a great deal of space, used vast 
amounts of electricity to power all their valves, and were 
notoriously unreliable. The transistor, invented in 1947, did much 
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to reduce the size of computers, but it was not until the first ‘micro- 
processor’ (the thing we now know as a ‘chip’) was built in 1971, 
that tiny computers of today, such as the Spectrum, became 
possible. 

The idea of the integrated circuit, the forerunner of the chip, was 
first suggested by G. W. Dummer, who worked for the British 
Royal Radar Establishment. Nobody took much notice of the idea, 
and it wasn't until six years later that an American, Jack Kilby, 
working for Texas Instruments, actually made the first one. 

The American company Intel made the historic first micro- 
processor, known as the 4004, in November 1971. Intel, and the 
world, did not realize at first the enormous social impact their 
product would have. It took almost a year before people began to 
realise that the seeds for a revolution which could transform the 
world had been sown. 

The first personal computer, the Altair, was built by a small New 
Mexico company, Mits, in 1975. The race to produce ever-smaller, 
ever-more powerful personal computers was underway. Clive 
Sinclair entered that race in the late seventies. 

Clive Sinclair had founded his first company, Sinclair Radionics, 
in 1962 to produce radio and amplifier kits for sale through mail 
order advertisements. By 1967, the company was turning over 
around £100,000 a year, and the range of products had expanded 
to include hi-fi systems. Five years later Sinclair entered the 
calculator market with the Executive, the world’s first pocket 
calculator, which made world headlines. The world’s media took 
note again in January, 1977 with the launch of Sinclair's 
Microvision, the world's first ‘pocket’ television, with a tiny, two- 
inch screen. Two years later, a UK version selling at less than half 
the cost of the first model was produced. 

At the end of January, 1980, Clive Sinclair released his first 
computer, the ZX80. It was the cheapest computer in the world at 
the time, and seems to have played a major part in bringing down 
the prices of small computers generally since that time. With the 
launch of the somewhat limited ZX80 in 1980, Sinclair became 
almost overnight the UK's largest microcomputer manufacturer. 
With the release of its successor, the much more flexible ZX81, 
just over a year later, Sinclair gained the world title. 

The Spectrum, which had its UK launch in April, 1982, is a worthy 
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successor to the 2X81, offering similar computing power to the 
ZX81 (although it runs far more quickly), but with added features 
such as colour, sound and high resolution graphics. Its release 
triggered a wave of price reductions in other small colour 
computers and a number of rivals to the Spectrum were soon 
announced. 


Suggestions for further reading: 

The Making of the Micro Evans, Christopher (Gollancz, 1982) 

Early British Computers Lavington, Simon (Manchester University Press, 1980) 
The Personal Computer Guide Hartnell, Tim (Virgin Books, 1982) 


Personal Computers Handbook Buchsbaum, Walter H. (Howard W Sams & Co., 
Inc., USA, 1981) 


The Personal Computer Book Bradbeer, Robin (Gower Publishing Co., 1982) 
A Simple Guide to Home Computers Ditlea, Steve (A & W Visual Library, USA, 1979) 


Getting Involved With Your Own Computer Solomon, Leslie and Veit, Stanley 
(Enslow Publishers, USA, 1977) 


Personal Computing, a Beginner's Guide Bunnell, David (Dutton, USA, 1978) 


PERIPHERALS 

This is the jargon word for ‘things which are attached to the 
computer without actually being part of it’. The most important 
peripherals are human input devices (eg. keyboard, built into most 
computers nowadays), human-readable output devices (screen, 
printer), and mass storage devices (such as a disc or tape). Most 
large computers have slave computers which handle their 
interface with the real world (peripheral processors). The slaves are 
generally a lot bigger than the Spectrum. 

An RS232 network interface board is available for the Spectrum 
which allows you to connect the computer to a very wide range of 
Printers, terminals and other computers. The RS232 is one of the 
Standard interfaces available, which is why so many RS232- 
compatible devices have been made. 
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Printers 
A printer is needed for most serious applications. Types of printer 
and relevant bits of jargon include: 


Line printer: a large, expensive device which prints a whole line ata 
time, typically at a rate in excess of 600 lines of 132 characters per 
minute. Used with larger computers. 


Daisywheel and golfball: complete characters are formed by 
impact, as by a typewriter. 


Dot matrix: characters are made up of an array of dots, produced by 
impact, thermally, or electrostatically. 


Impact: the print mechanism physically strikes an inked ribbon 
which marks the paper. 


Thermal: special paper which blackens when heated; the printer 
very rapidly heats and cools a pinpoint area of paper at a time. 


Electrostatic: aluminium-coated silvery paper; the printer 
generates sparks which expose a black backing. 


You pay for speed and good print quality. Thermal and 
electrostatic paper is expensive, although the printers themselves 
are cheaper. If you simply want to get information out as cheaply as 
possible (and not in large quantities), the Sinclair printer for the 
Spectrum is perfectly satisfactory. At the time of writing 
electrostatic printers start at £60 (Sinclair, 32 characters per line), 
general-purpose impact dot matrix from £200, thermal slightly 
less. Daisywheel typewriters cost from £300, and fast daisywheel 
printers around £1500. 


Memory, or Mass Storage Devices (MSDs) 

The most common mass storage devices are magnetic tape and 
magnetic disc. For cassette recording of Spectrum programs, 
you'll probably find mono portables are best. Try to avoid using a 
machine with a stereo head. If you can, try to get a machine known 
to give good results with computers (not necessarily an expensive 
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one). Use mains, rather than battery power (if you get bad results 
with mains power, use a different recorder). Useful frills for tape 
use include a tape counter; manual (rather than the ubiquitous 
automatic) level control; recording level meter; cue and review 
facilities; a suitable tape loading aid to set levels and check for 
dropouts. A tone control is definitely undesirable; if your recorder 
has one, keep it set to its maximum position. In many cases it is 
best not to plug in the earphone and microphone leads 
simultaneously. 

Use good tape, never longer than C60. TDK type D is excellent. 
BASF, Agfa, etc., all produce satisfactory tapes. Good C12 and C15 
tapes as sold for computer use are the best, but not all of these 
tapes are of high enough quality. A tape loading aid will help you to 
check on the quality of a tape by recording a program and 
monitoring the level fluctuations. 

Discs are much faster than tapes. They also allow information 
anywhere on the disc to be found fast (no rewinding). You can read 
from several files in rapid sequence.and it is possible to alternate 
operations on different files on the same disc (e.g. read details ona 
stock line, update the information, write the new information to 
another file, or even to the same one. On tape this would be 
impossible: it would require constant precise rewinding). 

The Microdrive, a miniature floppy disc, can hold up to 100K of 
information. Up to eight at a time can be connected to the 
Spectrum. Information is transferred to and from the Microdrive at 
an incredible 16K a second, whereas the transfer rate to a cassette 
tape is around 1.5K a second. 

Mass storage is never 100% reliable; it is vita/ to keep backup 
copies of valuable information. To a certain extent original 
information and printed output can be used as a last ditch 
safeguard; you will not rely heavily on this after you have had to re- 
enter three months worth of orders manually. Backups need not be 
on the same MSD as the working copy: discs can be backed up on 
tape, for example. Keep backups at a different location from the 
working copies. Remember that the information stored can often 
be much more valuable than the computer system itself. If 
travelling by train or Underground, don’t put magnetic media on the 
floor near motors. Never assume without checking that the disc or 
tape you are going to erase and rewrite is actually the right one. 
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Dimensions 

Width 233mm 
Depth 144mm 
Height 30mm 
CPU/Memory 


Z80A microprocessor running at 3.5 MHz. 16K-byte ROM 
containing BASIC interpreter and operating system. 16K-byte RAM 
(plus optional 32K-byte RAM on internal expansion board) or 48K- 
byte RAM. 


Keyboard 

40-keyboard with upper and lower case with capitals lock feature. 
All BASIC words obtained by single keys, plus 16 graphics 
characters, 22 colour control codes and 21 user-definable graphics 
characters. All keys have auto repeat. 


Display 

Memory-mapped display of 256 pixels x 192 pixels; plus one 
attributes byte per character square, defining one of eight fore- 
ground colours, one of eight background colours, normal or extra 
brightness and flashing or steady. Screen border colour also set- 
table to one of eight colours. Will drive a PAL UHF colour TV set, or 
black and white set (which will give a scale of grey), on channel 36. 


Sound 

Internal loudspeaker can be operated over more than 10 octaves 
{actually 130 semitones) via BASIC BEEP command. Jack sockets 
at the rear of computer allow connections to external amplifier/ 
speaker. 


Graphics 

Point, line, circle and arc drawing commands in high-resolution 
graphics. 16 pre-defined graphics characters plus 21 user- 
definable graphics characters. Also functions to yield character at a 
given position, attribute at a given position (colours, brightness and 
flash) and whether a given pixel is set. Text may be written on the 
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screen on 24 lines of 32 characters. Text and graphics may be 
freely mixed. 


Colours 

Foreground and background colours, brightness and flashing are 
set by BASIC INK, PAPER, BRIGHT and FLASH commands. OVER 
may also be set, which performs an exclusive—or operation to 
overwrite any printing or plotting that is already on the screen. 
INVERSE will give inverse video printing. These six commands 
may be set globally to cover all further PRINT, PLOT, DRAW or 
CIRCLE commands, or locally within these commands to cover 
only the results of that command. They may also be set locally to 
cover text printed by an INPUT statement. Colour-control codes, 
which may be accessed from the keyboard, may be inserted into 
text or program listing, and when displayed will override the 
globally set colours until another control code is encountered. 
Brightness and flashing codes may be inserted into program or 
text, similarly. Colour-control codes in a program listing have no 
effect on its execution. Border colour is set by a BORDER 
command. The eight colours available are black, blue, red, 
magenta, green, cyan, yellow and white. All eight colours may be 
present on the screen at once, with some areas flashing and others 
steady, and any area may be highlighted. 


Screen 

The screen Is divided into two sections. The top section — normally 
the first 22 lines — displays the program listing or the results of 
program or command execution. The bottom section — normally 
the last 2 lines — shows the command or program line currently 
being entered, or the program line currently being edited. It also 
shows the report messages. Full editing facilities of cursor left 
cursor right, insert and delete (with auto-repeat facility) are 
available over this line. The bottom section will expand to accept a 
current line of up to 22 lines. 


Mathematical Operations and Functions 

Arithmetic operations of +, —, X, +, and raise to a power. 
Mathematical functions of sine, cosine, tangent and their inverses; 
natural logs and exponentials; sign function, absolute value 
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function, and integer function; square root function, random 
number generation, and pi. 

Numbers are stored as five bytes of floating point binary — giving 
a range of +3x10-°9 to +7x10°8 accurate to 91/2 decimal digits. 
Binary numbers may be entered directly with the BIN function. =, 
>, <, > =, < = and <> may be used to compare string or 
arithmetic values or variables to yield O (false) or 1 (true). Logical 
operators AND, OR and NOT yield boolean results but will accept 0 
(false) and any number (true). 

User-definable functions are defined using DEF FN, and called 
using FN. They may take up to 26 numeric and 26 string 
arguments, and may yield string or numeric results. 

There is a full DATA mechanism, using the commands READ, 
DATA and RESTORE. 


A real-time clock is obtainable. 


String Operations And Functions 

Strings can be concatenated with +. String variables or values may 
be compared with =, >, <, > =, < =, <> to give boolean results. 
String functions are VAL, VAL%, STR% and LEN. CHR%$ and CODE 
convert numbers to characters and vice versa, using the ASC11 
code. A string slicing mechanism exists, using the form a$ (x TO y). 


Variable Names 

Numeric — any string starting with a letter (upper and lower case 
are not distinguished between, and spaces are ignored). 

String — AS to ZS 

FOR/NEXT loops — A-Z 

Numeric arrays — A-Z 

String arrays — A% to ZS 

Simple variables and arrays with the same name are allowed and 
distinguished between. 


Arrays 

Arrays may be multi-dimensional, with subscripts starting at 1. 
String arrays, technically character arrays, may have their last 
subscript omitted, yielding a string. 
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Expression Evaluator 

A full expression evaluator is called during program execution 

whenever an expression, constant or variable is encountered. 
This allows the use of expressions as arguments to GO TO, GO 

SUB, etc. It also operates on commands allowing the ZX Spectrum 

to operate as a calculator. 


Cassette Interface 

A tone leader is recorded before the information to overcome the 
automatic recording level fluctuations of some tape recorders, and 
a Schmitt trigger is used to remove noise on playback. Ail saved 
information is started with a header containing information as to its 
type, title, length and address information. Program, screens, 
blocks of memory, string and character arrays may all be saved 
separately. Programs, blocks of memory and arrays may be 
verified after saving. Programs and arrays may be merged from 
tape to combine them with the existing contents of memory. 
Where two line numbers or variables names coincide, the old one 
is overwritten. Programs may be saved with a line number, where 
execution will start immediately on loading. The cassette interface 
runs at 1500 baud, through two 3.5mm jack plugs. 


Expansion Port 

This has the full data, address and control busses from the Z80A, 
and is used to interface to the ZX Printer, the RS232 and NET 
interfaces and the ZX Microdrives. IN and OUT commands give the 
I/O port equivalents of PEEK and POKE. 


ZX81 Compatibility 


ZX81 BASIC is essentially a subset of ZX Spectrum BASIC. The 
differences are as follows: 


FAST and SLOW: the ZX Spectrum operates at the speed of the 
ZX81 in FAST mode with the steady display of SLOW mode, and 
does not include these commands. 


SCROLL: the ZX Spectrum scrolls automatically, asking the 
operator “scroll?” every time a screen is filled. 
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UNPLOT: the ZX Spectrum can unplot a pixel using PLOT OVER, 
and thus achieves unplot. 


Character set: the ZX Spectrum uses the ASC11 character set, 
as opposed to the ZX81 non-standard set. 
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